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ABSTRACT 


Fleet  Numerical  Meteorology  and  Oceanography  Center  (FNMOC)  forecasts  the 
atmospheric  environment  and  weather  using  several  meteorological  and  oceanographic 
models.  These  models’  forecasting  abilities  are  verified  by  comparing  the  model  forecast 
against  the  observational  data  and  model’s  analysis.  Currently,  some  models  are  verified  by 
several  inconsistent,  maintenance-intense,  non-standardized,  and  hard-to-use  model 
verification  systems  designed  for  a  particular  model.  Some  models  are  not  verified  because 
there  is  no  model  verification  system. 

This  thesis  demonstrates  the  concept  of  a  single  model  verification  system  for  all 
FNMOC  models  to  eliminate  the  inconsistencies  and  redundancies.  The  single  model 
verification  system  standardizes  the  model  verifications  and  provides  the  ability  to  verify  those 
models  which  are  currently  unverified.  The  prototype  used  a  GUI  and  web  browsers  to 
display  the  model  verification  statistics.  The  prototype  demonstrates  that  convenient  access 
to  the  model  verification  statistics  could  aid  FNMOC  users  in  evaluating  the  forecast  models’ 
performance. 

This  thesis  identifies  and  documents  the  user  specified  verification  requirements  for 
several  models  and  implements  the  most  immediate  requirements.  A  complete  quantitative 
model  verification  system  for  all  FNMOC  models  will  be  implemented  incrementally,  as  all 
the  requirements  are  identified. 
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I.  INTRODUCTION 


Fleet  Numerical  Meteorology  and  Oceanography  Center  (FNMOC)  is  a  U.S.  Navy 
organization  responsible  for  preparing  and  disseminating  a  wide  variety  of  weather  and  other 
environmental  forecasts.  These  forecasts  support  a  large  and  diverse  group  of  civil  and 
military  users  who  are  located  throughout  the  world.  These  forecasts  are  generated  by 
meteorological  and  oceanographic  models  maintained  by  FNMOC.  The  accuracy  and 
timeliness  of  the  model  forecasts  are  critical  because  the  model  forecasts  support  operational 
missions.  As  part  of  the  quality  control  process,  the  model  forecasts  are  periodically  verified. 
While  the  verification  process  and  frequency  vary  by  model,  generally  it  is  an  ongoing 
process.  The  model  verification  process  is  currently  accomplished  by  diverse  processes. 
Generally,  all  verification  systems  calculate  a  variety  of  summary  statistics.  These  summary 
statistics  are  then  examined  to  identify  strengths  and  weaknesses.  The  models  are  then 
modified  to  improve  their  forecast  performance.  These  summary  statistics  are  also  included 
in  the  weekly,  monthly,  quarterly  and  annual  model  performance  reports.  These  reports  are 
read  by  many  meteorological  and  oceanographic  organizations. 

This  research  attempts  to  provide  an  enhanced  model  verification  system  that 
streamlines  and  standardizes  the  model  verification  processes  in  FNMOC.  An  enhanced 
model  verification  system  that  can  be  used  to  verify  all  FNMOC  models  would  streamline  the 
model  verification  process.  Additionally,  a  verification  system  which  is  easily  modifiable  to 
meet  new  requirements  would  provide  enhanced  capability.  Furthermore,  a  system  that  is 
easily  accessable  to  the  model  developers  and  managements  would  reduce  difficulties  in 
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rapidly  assessing  verification  data. 

First,  FNMOC  needs  a  common  verification  system  to  verify  all  the  model  forecasts. 
Ideally  this  verification  system  should  enable  the  users  to  make  comparisons  between  several 
different  combinations  of  verification  parameters  by  controlling  the  independent  variables. 
In  other  words,  a  verification  system  should  provide  the  equivalent  comparison  statistics  for 
the  variable  of  interest.  The  comparison  might  be  between  models  for  the  same  geometry, 
between  the  atmospheric  levels,  between  the  forecasting  period,  etc.  For  example,  if  a  user 
wants  to  compare  one  model’s  performance  with  another  model’s  performance,  the 
verification  system  should  provide  the  equivalent  comparison  statistics  for  the  different 
models  in  the  same  geometry,  same  atmospheric  level,  same  forecast  periods,  etc.,  thus 
controlling  these  commonalities  and  providing  only  the  true  comparison  statistics  of  the 
model  performances. 

Second,  FNMOC  needs  a  flexible  verification  system  that  can  accommodate 
requirement  changes.  These  changes  could  be  an  addition  of  a  new  model,  change  in  the 
geometry  where  the  models  forecast,  addition  of  new  environmental  parameters,  etc.  The 
requirement  changes  need  to  be  incorporated  immediately.  Additionally,  these  changes 
should  not  require  extensive  modifications  to  the  applications  source  code  when  each  change 
is  required. 

Third,  FNMOC  needs  an  easy-to-use  tool  to  access  the  verification  statistics.  It 
should  be  easy  for  the  model  developers  and  managers  to  use  to  generate  the  needed 
information  in  graphical  format. 
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A. 


CURRENT  MODEL  VERIFICATION  AT  FNMOC 


Currently,  there  is  no  single  verification  system  for  FNMOC  model  developers  to  use 
to  access  and  easily  analyze  the  models’  performance.  There  are  several  model  verification 
systems  for  different  models  developed  by  individual  model  developers  and  model  verification 
personnel  without  adhering  to  any  standards.  For  example,  FNMOC’s  global  meteorological 
model,  Navy  Operational  Global  Atmospheric  Prediction  System 
(NOGAPS ) ,  is  verified  by  two  verification  systems,  nogstat  and  verobs.  Nogstat 
verifies  NOGAPS  forecast  against  its  analysis  and  verobs  verifies  against  the  observational 
data.  FNMOC’s  regional  meteorological  models,  Navy  Operational  Regional 
Atmospheric  Prediction  System  (NORAPS)  and  Coupled 
Ocean/Atmosphere  Mesoscale  Prediction  System  (COAMPS) ,  are  verified 
against  the  observational  data  by  verobs .  Verobs  compares  NOGAPS  and  NORAPS  in 
the  NORAPS  regions  -  Asia,  Continental  US  (Conus),  Europe  and  Indian  Ocean.  Verobs 
also  provides  NORAPS  and  COAMPS  comparisons;  however,  their  geometries  do  not  match 
exactly.  The  different  geometries  add  undesirable  variability  in  the  model  comparison. 
Another  example  is  FNMOC’s  global  wave  model,  WAM_GLOBAL.  It  is  verified  by  a 
verification  scheme  developed  by  the  model  developer.  There  is  no  known  documentation  and 
the  developer  is  the  only  person  who  has  any  knowledge  about  the  scheme.  There  are  other 
systems  that  can  only  handle  a  single  model  or  are  very  difficult  to  modify.  Additionally,  there 
are  redundancies  in  the  model  verification  efforts  among  many  of  the  individual  verification 
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systems.  Finally,  some  models  do  not  have  a  verification  system  at  all. 

This  lack  of  standardization  also  limits  FNMOC’s  ability  to  rapidly  respond  to  user’s 
new  requirements.  As  an  operational  center  responding  to  a  variety  of  operational  users 
ranging  from  the  Navy,  Air  Force  and  other  civil  and  government  organizations,  FNMOC 
frequently  receives  requests  to  provide  modifications  to  models.  The  ability  to  respond  is 
limited  by  the  fact  that  the  data  to  compute  the  model  verification  statistics  are  in  various 
formats  at  various  locations.  Some  data  are  located  in  FNMOC's  relational  database, 
Integrated  Stored  Information  System  (ISIS)  on  the  Cray  and  the  Sun 
server.  The  model  forecast  data  (grid  data)  and  the  model  analysis  are  stored  in  the  ISIS 
grid  database.  The  observational  data  are  stored  in  the  ISIS  latitude/longitude/time  (LLT) 
database  in  a  format  different  from  the  grid  data.  Some  data  are  stored  in  a  private  directory 
as  text  files.  All  of  these  different  data  require  different  reading  schemes.  The  model 
verification  statistics  are  computed  in  many  different  ways  since  there  is  no  single  library  to 
compute  the  statistics.  The  model  statistics  files  are  in  different  formats  -  some  in  text  files, 
some  in  the  Fortran  formatted  files,  and  in  different  locations  -  some  on  the  Cray  in  the 
operational  directory,  some  in  private  directories,  some  on  a  Sun  system. 

Finally,  the  accessibility  to  and  the  display  of  the  data  in  the  current  systems  do  not 
provide  the  flexibility  needed.  Accessibility  to  the  verification  statistics  is  very  limited  in  the 
current  verification  systems.  Only  users  who  have  in-depth  knowledge  about  the  verification 
system  can  access  the  model  verification  data.  The  display  of  the  model  verification  data  is 
in  numerous  formats,  styles  and  conventions.  Notably,  graphical  displays  with  similar 
purpose  are  prepared  using  multiple  graphical  software  packages.  This  results  in  a  wide 
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variety  of  styles  and  methods  used  to  display  similar  model  statistics.  Clearly,  there  is  a 
strong  need  for  one  universal  model  verification  system  to  verify  any  FNMOC  models  and 
standardize  the  model  verification  process. 

B.  FNMOC  MODEL  VERIFICATION  SYSTEM 

The  FNMOC  Model  Verification  System  is  a  single,  easy-to-modify  and  easy-to-use 
model  verification  system  for  all  FNMOC  meteorological  and  oceanographic  models.  It  was 
developed  by  modifying  the  current  FNMOC  operating  verification  systems  verobs  and 
nogs  tat.  The  new  model  verification  system  standardizes  the  model  verification  in 
FNMOC.  It  also  makes  the  data  and  information  widely  available  by  leveraging  web 
technology.  It  currently  resides  on  FNMOC ’s  intranet,  but  could  be  placed  on  FNMOC 5  s 
internet  server  to  meet  the  external  user’s  requirements. 

C.  RESEARCH  QUESTIONS 

FNMOC  model  developers  need  a  single,  easily  modified  and  easy-to-use  model 
verification  system  that  would  standardize  the  model  verification.  This  research  attempted  to 
address  these  needs  through  the  following  questions. 

Is  it  feasible  to  develop  a  prototype  system  that  demonstrates  the  concept  of  one 
universal  model  verification  system  to  verify  all  FNMOC  models?  Will  this  system  assist  in 
eliminating  redundancies  and  inconsistencies  caused  by  the  present  system  that  uses  multiple 
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model  verification  methods?  Is  it  feasible  to  implement  a  common  system  for  those  models 
that  currently  do  not  have  a  model  verification  system?  Can  this  standardization  of  the  model 
verification  create  a  reusable  statistics  library  and  consolidate  all  model  statistics  in  one 
database  in  a  standardized  data  format?  Can  this  model  standardization  be  created  using 
graphics  with  the  same  format,  style  and  conventions? 

Second,  can  a  universal  system  provide  the  flexibility  needed  to  rapidly  and  efficiently 
modify  the  model  verification  system  for  all  FNMOC  models?  Will  this  flexibility  meet 
requirements  of  FNMOC  customers? 

Third,  can  a  web-based  technology  provide  the  access,  and  ease  of  use  needed  to  meet 
the  customer  and  FNMOC  personnel  needs? 

D.  THE  OVERVIEW  OF  THESIS 


Chapter  I  of  this  thesis  provides  an  introduction  and  problem  statement,  Chapter  II 
describes  the  Model  Verification  System  including  the  background,  Chapter  HI  provides  the 
user  requirements,  Chapter  IV  provides  the  design,  Chapter  V  provides  the  evaluation  and 
Chapter  VI  provides  the  recommendations  for  future  research.  Appendix  A  provides  the 
values  of  the  SMS  environment  variables  and  namelist  values  for  each  model  using  the  system. 
Appendix  B  provides  the  source  code.  Appendix  C  provides  the  prototype  testing  data. 

The  figures  in  this  thesis  use  Yourdon’s  [Ref.  1]  graphical  modeling  notation.  A 
process  is  represented  by  a  rectangular  box.  A  process  that  is  further  decomposed  is 
represented  by  a  shaded  rectangular  box.  An  input  or  output  flow  is  represented  by  an  arrow. 
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An  external  entity  is  represented  by  a  box  with  a  folded  upper  left  hand  comer.  A  decision 
point  is  represented  by  a  diamond.  A  data  store  is  represented  by  a  drum.  A  library  module 
is  represented  as  a  rectangular  box  with  double  side  bars. 

The  courier  font  is  used  to  indicate  programs  and  systems  external  to  the  model 
verification  system  such  as  ISIS  and  HTML.  The  italic  is  used  to  indicate  the  parts  of  the 
model  verification  system  such  as  the  graphics  component. 


7 


8 


n.  FNMOC  MODEL  VERIFICATION  SYSTEM 


The  FNMOC  Model  Verification  System  is  a  single  model  verification  system  for  all 
FNMOC  meteorological  and  oceanographic  models.  It  replaces  the  currently  existing  model 
verification  systems  that  are  redundant,  hard  to  modify  and  maintenance  intensive.  It  provides 
an  easy-to-use  model  verification  system  for  the  models  that  do  not  currently  have  a 
verification  system.  It  standardizes  the  model  statistics  computations  by  creating  a  reusable 
statistics  library.  It  standardizes  the  format  and  storage  of  the  model  statistics  by 
consolidating  the  model  statistics  in  one  location  using  one  database  management  system.  It 
also  standardizes  the  display  of  the  model  statistics  by  using  the  graphics  library  routines 
created  with  FNMOC’ s  graphics  software.  This  system  provides  FNMOC  model  developers 
a  easy-to-use  tool  to  aid  them  in  their  analysis  of  model  performance: 

It  uses  web  technology  to  enable  the  users  to  make  their  requests  via  web  browsers 
and  receive  the  resulting  graphics  as  shown  in  Figure  1.  Implementing  the  GUI  via  a  web 
browser  eliminates  the  requirement  that  the  client  system  have  all  the  necessaiy  software 
locally,  i.e.,  all  the  processing  is  done  on  the  server. 

Context  Level  Diagram 


user  request  w 

. 'W 

Model 

User 

Verification 

^  graphics 

System 

Figure  1.  Context  Level  Diagram 
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The  model  verification  system  has  several  components.  The  operational  run  (ops  run) 
component  computes  the  model  statistics  twice  a  day  after  each  model  run  is  completed.  The 
statistics  computation  library  (statistics  library)  component  is  a  reusable  library  that  performs 
the  statistics  computation  for  this  system  as  well  as  other  systems  (programs)  at  FNMOC. 
The  database  for  the  model  statistics  (statistics  database)  component  is  the  single  data 
storage  for  all  the  model  statistics.  The  graphics  component  creates  the  graphs  of  the  model 
statistics.  The  user  interface  component  receives  the  user  requests,  processes  them,  then 
returns  the  resulting  graphs  back  to  the  user  via  a  web  browser.  The  following  sections 
describe  these  components  in  broad,  general  terms.  More  specific  descriptions  of  these 
components  are  in  Chapter  IV. 

A.  OPERATIONAL  RUN 


FNMOC  runs  the  prediction  models  twice  a  day.  The  model  verification  statistics  are 
calculated  after  each  operational  run  of  the  models.  This  component  has  four  major  parts. 
First,  after  the  prediction  model  has  successfully  completed,  the  FNMOC  operations  staff  uses 
the  Scheduler  Monitor  Supervisor  (SMS)  system  to  invoke  a  Korn  shell  job 
script,  mverifjob.  This  operational  job  script  {mverifjob)  is  run  on  the  same  FNMOC  Cray 
computer  as  the  model  forecasts,  model  analysis  and  the  observational  data.  The  mverifjob 
also  executes  the  second  and  third  parts  of  the  operational  run  components,  verobs  and 
veronal.  Additionally,  it  writes  a  set  of  text  files  that  contain  the  calculated  statistics  to  the 
appropriate  directory  and  computer.  Second,  a  group  of  Fortran  programs,  verobs,  verifies 
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the  model  forecasts  against  the  observational  data.  Third,  a  group  of  Fortran  programs, 
veranal,  verifies  the  model  forecasts  against  the  model  analysis.  The  model  analysis  is  the 
initial  conditions  over  a  set  of  grid  points  covering  the  forecast  region.  Fourth,  a  Korn  shell 
script,  sta.tupd.ksh ,  adds  the  computed  model  statistics  to  the  model  statistics  database. 

B.  STATISTICS  LIBRARY 


The  statistics  library  has  a  collection  of  reusable  general  purpose  statistics  programs. 
These  programs  are  a  group  of  Fortran  programs  that  compute  the  required  statistics  for 
model  verification.  These  include  commonly  used  verification  statistics  such  as  mean  error 
(bias),  standard  deviation  of  the  error  (stdev),  and  root  mean  squared  error  (rms).  All  the 
programs  compute  the  statistics  on  the  difference  between  the  verifying  and  predicted  sets  of 
data.  There  is  also  a  program  to  compute  the  map  factors  for  different  earth  projections  used 
by  FNMOC. 

The  current  FNMOC  routines  for  computing  statistics  were  modified  and  adapted  in 
this  component.  The  inventory  of  the  existing  statistics  computation  routines  was  obtained 
from  the  FNMOC  Unix  Utility  Library  and  the  applications  under  FNMOC  configuration 
management  (CM).  Table  1  shows  the  existing  Fortran  subroutines  and  the  statistics 
computed  by  each  of  them. 
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Table  1.  Inventory  of  FNMOC  statistics  routines 


Routine 

Statistics  computed 

ancor.f 

anomaly  correlation  (anc)  for  10  NOGAPS  areas 

differp.f,  differs.f* 

mean  bias,  mean,  sum,  standard  deviation  (std),  root  mean  square  (rms) 

htrms.f 

mean  bias,  std,  rms 

nrancor.f 

anc 

nrhtrms.f 

mean  bias,  std,  rms 

nrvelrms.f 

mean  wind  u  component,  mean  wind  v  component,  mean  wind  speed,  rms 
wind  speed 

stats.f 

mean  bias,  rms,  std,  threat  score,  probability  of  detection  (pd),  false 
alarm,  skill  score 

velrms.f 

mean  wind  u  component,  mean  wind  v  component,  mean  wind  speed,  rms 
wind  speed  for  10  NOGAPS  areas 

*  The  statistics  computed  do  not  take  any  projection  into  account.  All  the  other  subroutines 
compute  the  statistics  for  the  spherical  projection. 


These  routines  are  redundant,  not  in  a  particularly  reusable  form,  and  application 
specific  rather  than  general  purpose.  For  example,  the  routines  ancor .  f ,  ht  rms .  f  and 
velrms.f  are  specific  to  nogstat.  The  routines  nrancor.f,  nrhtrms.f  and 
nrvelrms  .  f  are  specific  to  norstat  (a  no  longer  active  modification  of  nogstat). 
The  routine  stats .  f  is  specific  to  verobs.  The  routines  differs  .  f  and  dif  f  erp .  f 
are  part  of  yet  another  application  Ocean  Model  Support  Program  (OMSP).  This 
component  makes  them  more  reusable  and  general  purpose. 

C.  STATISTICS  DATABASE 


This  component  is  the  data  storage  for  the  model  verification  statistics.  It  uses 
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FNMOC’s  relational  database  system,  Empress.  There  is  a  table  for  each  model  and  a 
generic  table  structure  used  to  create  the  table  structures  for  each  model’s  table.  This 
database  resides  on  the  database  workstation.  This  component  allows  easy  data  access  and 
consolidates  all  the  model  statistics  in  a  single  location.  It  will  have  one  year’s  data  on  line 
and  archive  the  older  data  off  line.  This  is  to  accommodate  the  model  developers’ 
requirements  to  frequently  use  the  historical  data  for  weekly,  monthly,  quarterly,  seasonal  and 
annual  analyses  and  reports. 

D.  GRAPHICS 


This  component  creates  the  graphs  of  the  model  statistics  based  upon  the  user’s 
requests.  The  programs  are  written  with  one  of  FNMOC’s  graphics  software  packages, 
Interactive  Data  Language  (IDL).  These  programs  read  the  model  statistics 
from  a  text  file.  The  model  statistics  are  retrieved  from  the  database,  formatted  and  written 
to  a  text  file  for  IDL  programs.  The  IDL  program  creates  a  GIF  file  to  display  in  a  Hyper 
Text  Markup  Language  (HTML)  page  back  to  the  user. 

E.  USER  INTERFACE 


This  component  is  the  gateway  to  the  model  verification  system  via  a  web  browser. 
It  gives  the  users  the  ability  to  compose  their  requests  for  the  model  verification  statistics  they 
want  via  HTML  forms.  When  the  users  access  the  system  they  are  presented  with  a  variety 
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of  on-screen  choices.  These  include  a  list  of  models,  forecast  periods  (tau),  atmospheric 
pressure  levels,  parameters  (air  temp,  wind  speed,  etc  ),  statistics,  and  verification  sources. 
Additionally,  they  can  select  the  observation  types  and  types  of  graphs  and  can  also  specify 
the  time  period  they  want  graphically  presented.  After  they  make  the  various  selections  and 
request  the  information,  their  request  is  processed  and  the  information  is  returned  to  their 
screen.  Their  request  is  processed  dynamically,  using  a  perl  script.  This  is  important  since 
it  eliminates  the  need  to  have  any  pre-created  static  GIF  files.  This  is  an  important  capability 
since  static  files  are  less  flexible,  use  greater  storage  space,  and  require  a  great  deal  of 
maintenance  to  keep  them  current.  The  perl  script  parses  the  user  requests,  executes  the 
script  to  query  the  statistics  database  and  retrieve  the  data,  executes  the  graphics  programs 
and  returns  the  graphs  to  the  user  via  a  web  browser. 

F.  MEETING  THE  REQUIREMENTS 

Each  of  the  FNMOC  Model  Verification  System  components  demonstrates  the  ability 
to  eliminate  shortfalls  in  the  current  system  as  well  as  providing  additional  enhancements. 
First,  the  operational  run  component  computes  the  statistics  twice  daily  for  continuous 
accumulation  of  model  statistics.  It  is  designed  for  flexible  modification  whenever  a 
requirement  change  occurs  via  SMS  variables  and  the  namelist  functionality  in  Fortran  90. 
Additionally,  the  statistics  database  standardizes  the  data  format,  data  storage,  data  access 
and  data  location  by  having  all  the  model  statistics  in  a  single  database.  Also,  the  statistics 
library  standardizes  the  statistics  computation  for  all  the  map  projections.  The  text  file  format 
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for  the  intermediate  files  for  the  data  insertion  into  the  statistics  database  standardizes  how 


the  intermediate  files  need  to  be  written.  This  is  beneficial  in  the  event  these  files  need  to  be 
read  directly  or  if  the  model  statistics  from  some  other  systems  need  to  be  added  into  the 
statistics  database.  The  graphics  component  creates  the  standardized  graphs  of  the  model 
statistics.  The  user  interface  component  provides  the  users  an  easy-to-use  model  verification 
system  for  all  FNMOC  models.  No  special  training  is  required  to  use  the  model  verification 
system  if  users  know  how  to  use  a  web  browser.  It  is  a  single  point  and  common  way  to 
access  the  model  statistics  without  any  knowledge  about  the  system.  All  these  components 
help  to  standardize  the  various  aspects  of  the  model  verification  in  FNMOC. 

The  FNMOC  Model  Verification  System  Prototype  demonstrates  the  concept  of  a 
single,  universal  model  verification  system  for  all  FNMOC  models.  It  provides  a  vehicle  for 
a  better  understanding  of  the  environment  and  requirements  problem  being  addressed.  It 
demonstrates  what  is  actually  feasible  with  the  existing  technology,  and  where  the  technical 
weak  spots  still  exist  at  FNMOC.  Additionally,  it  is  an  effective  way  to  ensure  the 
requirements  accurately  reflect  the  user’s  real  needs.  The  prototype  demonstrates  to  the  users 
what  is  functionally  feasible  and  provides  an  analysis  test  bed  and  vehicle  to  validate  and 
evolve  the  system  requirements.  [Ref.  17] 
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m.  REQUIREMENTS 


A.  GENERAL  REQUIREMENTS 

Generally,  the  model  forecasts  are  verified  against  the  observed  meteorological  values 
or  the  initial  conditions  over  a  set  of  grid  points  covering  the  forecast  region  called  the 
model’s  analysis.  “V.  Bjerknes  in  1904  recognized  that  forecasting  is  fundamentally  an 
initial-value  problem  in  mathematical  physics  and,  moreover,  that  the  basic  system  of 
equations  to  be  solved  was  already  known,  at  least  in  general  form.”  [Ref.  10]  This  research 
addresses  a  part  of  the  general  requirements,  verification  against  the  observational  values,  but 
future  efforts  could  expand  to  address  the  entire  general  requirements  in  the  future. 

B.  FNMOC  USER  REQUIREMENTS 

FNMOC  user  requirements  were  obtained  through  a  user  survey,  review  of  the  current 
model  performance  summary  reports  [Ref.  13],  and  a  meeting  with  the  model  team  leaders 
and  model  verification  personnel.  The  initial  user  requirements  indicated  that  the  models  need 
to  be  verified  against  the  model’s  analysis  and/or  observational  data  which  matches  with  the 
general  requirements.  The  verification  against  the  observational  data  appears  to  be  more 
widely  and  frequently  used  at  FNMOC.  Therefore,  this  research  concentrated  on  the 
verification  against  observational  data  initially  and  will  add  the  verification  against  the  model’s 
analysis  in  the  future.  Table  2  below  shows  the  results  of  the  user  requirements  analysis  for 
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each  model.  The  requirements  analysis  also  showed  that  bias,  standard  deviation  (stdev)  and 
root  mean  square  (rms)  are  used  more  frequently  than  any  other  statistical  measures.  Users 
indicated  that  the  various  model  statistics  should  be  stored  on-line  and  immediately  accessible 
for  up  to  one  year  and  off-line  for  longer  period.  The  users  indicated  the  most  widely  used 
graphics  to  display  these  statistics  are  scatter  plots,  time-series  plots  and  height-series  plots. 
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Table  2.  List  of  user  requirements  for  each  models 
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C.  ASSUMPTIONS 


Several  assumptions  were  made  during  this  research  to  focus  on  meeting  the  most 
urgent  requirements.  First,  this  research  concentrates  only  on  verifying  the  model  forecast 
against  the  observational  data  since  more  users  indicated  they  would  like  to  verify  against  the 
actual  data.  The  assumption  here  is  that  the  results  and  methodology  can  be  generalized  to 
the  verification  versus  the  model  analysis  as  well.  Second,  the  system  is  purposely  designed 
to  be  as  independent  from  FNMOC’s  relational  database  management  system  (RDBMS) 
Empress  as  possible  by  using  the  text  files  between  the  DBMS  and  the  system  in  the  event 
the  DBMS  is  changed  to  some  other  RDBMS.  The  assumptions  is  that  these  text  files  can 
be  interfaced  with  any  RDBMS.  Third,  WAM_GLOBAL  is  used  as  the  representative  ocean 
model  in  the  initial  system  rather  than  all  the  ocean  models.  Other  ocean  models  as  well  as 
the  meteorological  models  will  be  added  later.  This  assumes  that  the  results  and  methodology 
can  be  generalized  to  other  models  as  well.  Fourth,  the  system  only  calculates  the  bias,  stdev 
and  rms  initially  and  will  add  the  other  statistics  later.  The  asumption  is  that  other  statisics 
can  be  added. 

The  system  will  evolve  and  mature  as  the  users’  inputs  from  the  user  prototype 
evaluations  are  evaluated.  More  general  verifications  will  be  implemented  as  the  full  system 
is  implemented  to  meet  all  the  requirements  identified  during  the  requirements  analysis, 
namely,  the  verification  against  the  model  analysis,  the  addition  of  other  oceanographic  and 
meteorological  models,  the  addition  of  statistics  (anomaly  correlation,  probability  of 
detection,  threat  scores,  etc.),  consideration  of  the  map  factors  in  the  verification  against  the 
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model  analysis  and  addition  of  other  graphics  for  different  combinations. 

D.  LIMITATIONS  OF  RESEARCH 

This  research  demonstrates  the  concept  of  a  universal  model  verification  system  for 
all  FNMOC  models  by  use  of  a  prototype  system.  This  prototype  is  implemented  to  meet  the 
minimum  requirements,  but  provides  the  capability  to  expand  to  meet  the  additional 
requirements  as  well  as  future  requirements.  The  limitations  in  the  system  are  listed  in  the 
following  paragraphs. 

The  model  statistics  is  computed  for  different  observation  types  separately  rather  than 
combined.  The  map  factors  are  not  considered  in  the  verification  against  the  observations. 
In  other  words,  when  the  model  forecasts  are  verified  with  respect  to  the  observational  data, 
all  the  latitude/longitude  points  are  considered  equally  weighted.  This  system  creates  only  the 
time-series  plots  to  narrow  the  scope  of  the  graphics  component.  Other  types  of  graphics  can 
be  added  in  the  future. 

The  prototype  is  bound  to  the  current  FNMOC  operating  systems  and  software  since 
it  should  use  the  FNMOC  environment.  Therefore,  this  system  may  not  be  as  portable  as  it 
could  be  when  there  is  a  significant  change  within  the  FNMOC  environment,  such  as  a 
different  operating  system,  new  DBMS,  new  graphics  software,  new  standard  shell,  etc. 
Some  of  the  lower  level  modules  that  interface  to  the  ISIS  latitude/longitude/time  (LLT) 
data  have  unavoidable  coupling  to  ISIS  due  to  the  different  observational  data  type 
structures. 
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IV.  DESIGN 


The  initial  prototype  system  design  has  narrow  scope  to  concentrate  on  meeting  the 
immediate  and  minimum  requirements.  Additional  requirements  will  be  added  in  future 
versions  to  test  the  system’s  flexibility.  The  immediate  requirements  are  verification  of  the 
NOGAPS ,  NORAPS ,  COAMPS  and  WAM_GLOBAL  models  after  the  model  runs  for  daily, 
weekly,  monthly  and  quarterly  reports.  The  prototype  will  present  bias,  stdev  and  rms  on  a 
few  specified  parameters  (e.g.,  air  temp  and  wave  height).  The  WAM_GLOBAL  model  is  used 
as  a  representative  ocean  model  in  the  prototype. 

The  prototype  of  the  initial  system  addresses  these  requirements  to  prove  the  design 
and  implementation  concept.  Additionally,  this  will  demonstrate  the  feasibility  of  using  a 
single  universal  model  verification  system  for  FNMOC.  “The  system  need  not  have  a  finely 
tuned  prototype  before  it  is  implemented.  In  fact,  one  merely  asks  of  the  prototype  that  it 
contains  a  flexible  set  of  hardware  and  software  tools  for  continuous  redesign,  and  have 
access  to  real-time  data  (with  standardized  formats).”  [Ref.  15]  The  prototype  has  a  GUI  to 
allow  the  users  to  view  the  model  statistics  in  graphical  form  on  a  web  browser. 

The  prototype  is  developed  and  implemented  in  FNMOC’ s  operational  environment 
to  ensure  that  it  is  useful  in  that  environment.  “The  important  thing  is  that  the  development 
takes  place  primarily  in  the  operational  office,  with  the  direct  involvement  of  the  people  who 
are  going  to  use  it.”  [Ref.  15] 
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A. 


OVERALL  STRUCTURAL  DESIGN 


Figure  2  shows  the  overall  structural  design  of  the  FNMOC  model  verification  system. 
It  shows  the  five  main  components  described  in  Chapter  II  and  their  relationships. 


Figure  2.  Level  1  Diagram 


The  operational  run  component  computes  the  model  verification  statistics  twice  a  day 
by  executing  either  verobs  or  veronal.  Verobs  reads  the  model  forecasts  and  analysis  from 
the  ISIS  grid  database  and  observational  data  from  the  ISIS  LLT  database.  Verobs  and 
veranal  use  the  statistics  computation  routines  in  the  reusable  statistics  library  component 
to  perform  the  computation.  They  write  the  statistics  in  the  text  files  in  the  standardized 
format  (one  for  each  model)  for  transfer  to  the  FNMOC  database  development  workstation 
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where  the  statistics  database  component  resides.  The  operational  run  component  then 
inserts  the  model  statistics  into  the  database.  The  transfer  and  the  database  population  is  not 
done  twice  a  day  by  FNMOC  operations  currently  as  part  of  the  ops  run  because  operations 
is  not  one  of  the  owners  of  the  statistics  database  component.  Currently,  the  transfer  and 
database  populations  are  done  by  FNMOC  staff  about  once  a  day  during  the  week  days.  This 
is  because  the  statistics  database  is  not  part  of  ISIS  currently,  and  the  FNMOC  ops  run 
does  not  write  to  any  non-ISIS  databases.  The  statistics  database  should  become  a  part  of 
ISIS  after  the  prototype  evaluation.  The  user  interface  component  presents  HTML  forms 
to  users  which  they  use  to  make  their  requests.  This  component  processes  the  user  requests 
by  retrieving  the  model  statistics  from  the  statistics  database  and  formats  the  data  for  the 
graphics  component.  The  graphics  component  then  creates  the  graphics  to  send  to  the  users. 
The  following  sections  describe  the  detailed  design  for  each  module  in  each  of  the  five 
components.  The  source  code  for  all  the  modules  is  in  the  Appendix  B. 

B.  DESIGN  OF  OPERATIONAL  RUN  (OPS  RUN) 

The  ops  run  has  two  korn  shell  scripts,  mverif.job  and  statupdksh.  It  also  has 
Fortran  programs  verobs.J90  and  veranal.f90  (in  the  future)  along  with  a  Fortran  header  file 
v  data.h.  mverif.job  reads  the  SMS  variables  and  executes  the  appropriate  program  based 
on  the  SMS  variable  VERIF_SOTJRCE  value.  FNMOC  operations  executes  this  job  script 
to  compute  the  model  verification  statistics  twice  a  day  after  each  model  run  is  completed. 
The  model  statistics  are  written  to  a  text  file  for  each  model,  geometry  and  date-time-group 
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(dtg).  Statupdksh  transfers  the  model  statistics  text  files  from  one  computer  to  another 
workstation,  formats  the  text  file  and  populates  the  statistics  database  using  Empress 
Standard  Query  Language  (SQL).  Figure  3  shows  the  design  of  ops  run 
graphically. 
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model-verif.job  (ops  run) 


Figure  3.  Ops  Run  Diagram 
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I. 


Design  of  mverif.job  (Cray) 


This  system  needs  to  be  flexible  to  incorporate  new  requirements  and  changes  to  the 
existing  requirements.  The  use  of  SMS  environment  variables  in  mverif.job  is  one  of  the 
methods  this  system  uses  to  assure  this  flexibility.  FNMOC  uses  SMS  to  run  the  operational 
runs  (ops  runs)  and  uses  the  SMS  environment  variables  extensively  to  control  the  ops  runs. 
The  SMS  variables  are  set  before  the  mverif.job  is  executed  and  passed  into  the  job.  Figure 
4  shows  the  list  of  the  SMS  variables  and  their  description.  By  changing  the  value  of  these 
SMS  variables,  mverif.job  is  executed  to  verify  all  the  FNMOC  models  without  changing  the 
job  itself.  The  values  for  these  SMS  variables  were  set  based  on  the  user  requirements 
analysis  shown  in  Table  1.  The  complete  SMS  value  list  for  each  model  is  included  in  the 
Appendix  A. 


CRDATE  -  watch  date-time-group  (e.g.,  1998013112) 

ISIS_TABLE  -  ISIS  table  name,  coincides  with  the  model  name  (e.g.,  NOGAPS , 
WAM_GLOBAL) 

GEOMNM1  -  geometry  name  defined  in  ISIS  (e.g.,  global_360xl81) 

GEOMNM2  -  second  geometry  name 

TAUI  -  beginning  forecast  time 

TAUE  -  ending  forecast  time 

TAUINC  -  increment  of  forecast  time 

VERIF_SOURCE  -  either  ‘obs’  or  ‘anal’ 

OPSBIN  -  directory  in  which  the  binaries  for  the  operational  runs  reside 
ISIS_INIT  -  ISIS  initialization  script  name 

PROGBIN  -  directory  in  which  the  binary  for  this  system  resides,  may  be  same  as 
OPSBIN 


Figure  4.  SMS  Variables  and  Description 
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mverif.job  is  a  korn  shell  script  that  FNMOC  operations  execute  to  compute  the 
model  verification  statistics  twice  a  day.  This  job  performs  various  operational  job  required 
tasks  such  as  setting  up  the  operational  job  environment  and  executing  the  correct  ISIS 
initialization  script.  It  reads  the  required  SMS  variables  and  exports  them  to  the  subsequent 
shells.  It  creates  the  appropriate  sub-directory  with  the  month  (mmm,  e.g.,  mar)  and  year 
(yyyy,  e.g.,  1998)  from  CRDATE  to  write  the  model  verification  statistics.  There  are 
separate  sub-directories  for  each  month  and  year.  It  copies  the  model’s  namelist  files  to  the 
$TMP  directory  and  executes  the  appropriate  executable  file  based  on  the  variable 
VERIF_SOURCE,s  value  as  shown  in  Figure  3.  If  the  value  of  VERIF_SOURCE  is  ‘obs,’ 
verobs  is  executed  and  if  the  value  is  ‘anal,’  veranal  is  executed.  It  then  writes  the  resulting 
model  statistics  into  the  standardized  text  file  in  the  appropriate  data  directory 
(/ a/op  s/etc/ dynamic/ app/ mverif/ mmmyyyy) .  It  finishes  the  process  by  completing  the  job 
accounting  information  and  writing  the  j  oblog  file  to  the  operational  joblog  output 
directory  (/a/ops/job/out). 

2.  Design  of  statupd.ksh  (Sun) 

This  is  a  korn  shell  script  that  inserts  the  model  statistics  into  the  appropriate  data 
table  in  the  statistics  database,  stat  db.  It  is  executed  after  mverif.job  is  finished.  It  formats 
the  transferred  text  file  using  the  awk .  Sta.tupd.ksh  determines  if  new  statistics  files  exist 
in  the  data  directory.  It  also  determines  the  database  table  to  populate  based  on  the  model 
name  in  the  statistics  files.  It  then  inserts  the  statistics  into  the  appropriate  data  table  in 
stat  db. 
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3.  Design  of  Fortran  Include  File,  V_DATA.H 

All  data  definitions  and  constants  used  throughout  the  Fortran  90  programs  (verobs, 
veronal)  and  their  subroutines  are  in  the  Fortran  include  file  called  V_DA  TA.H.  This  provides 
for  easier  maintenance  since  the  modification  is  isolated  in  one  location  rather  than  in  multiple 
locations  when  changes  in  a  variable  occur. 

4.  Design  of  VEROBS.F90,  The  Main  Verification  Against  Obs  Program 

This  is  the  top  level  Fortran  program  that  verifies  the  model  forecasts  with  respect  to 

the  observational  data  for  various  models.  Verobs.ftO  uses  the  namelist  functionality.  This 
helps  to  achieve  flexibility  in  addition  to  the  usage  of  the  SMS  variables.  Like  the  SMS 
variables,  namelist  values  are  set  external  to  the  program.  Each  model  can  have  a  namelist 
file  for  the  surface  level  and  a  namelist  file  for  the  upper  levels.  The  namelist  files  are 
explained  in  more  detail  in  subsection  a  below.  Figure  5  shows  the  structural  design  of 
verobs  module. 
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verobs 


Figure  5.  Verobs  Design 


Verobs.f90  reads  the  SMS  environment  variables  described  in  the  ops  run.  It 
determines  if  the  geometry  in  GEOMNM1  is  defined  in  the  ISIS.  If  it  is  not  defined,  the 
geometry  information  is  added.  Once  the  geometry  is  defined,  it  determines  the  earth  area 
to  read  the  observations  for  the  model  verification.  It  then  reads  the  model  forecast  from  the 
ISIS  grid  database  and  observations  from  the  ISIS  LLT  database.  It  interpolates  the  model 
forecast  to  the  observational  data  points  to  compute  the  bias,  stdev  and  rms  using  the 
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statistics  library  component.  It  writes  the  statistics  to  a  text  file.  The  text  filename  is 
determined  by  the  SMS  variable  values  for  ISIS_TABLE,  GEOMNM2  and  CRD  ATE.  The 
modules  (Fortran  subroutines)  called  by  verobs  are  described  in  the  following  sections  starting 
in  section  b. 

a.  Namelist  file  format  for  each  model 

Each  model  can  have  two  namelist  files,  one  for  the  upper  environmental  levels 
and  one  for  the  surface  level.  The  second  namelist  file  is  needed  because  the  surface  level  is 
different  for  different  parameters  and  level  types  while  the  upper  levels  are  common  levels  for 
all  the  parameters.  For  example,  the  surface  level  for  air  temperature  is  2.0  meters,  while  the 
surface  level  for  wind  speed  is  19.5  meters.  Figure  6  shows  the  list  of  the  namelist  items  and 
their  descriptions.  The  complete  namelist  files  for  each  model  are  included  in  Appendix  A 
along  with  Table  3.  Table  3  shows  the  namelist  items  specified  by  the  users  for  each  model. 
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parm  -  the  list  of  model  parameters  to  verify 

dsetname  -  the  data  set  name  for  the  model  forecast  parameter  in  ISIS  grid  data 

obs_parm  -  the  corresponding  parameter  in  the  observational  data  in  ISIS  LLT  data 

odsetname  -  the  data  set  name  for  the  observational  parameter  in  the  LLT  data 

units  -  unit  of  the  given  parm 

lvltype  -  level  type  of  the  given  parm 

obstype  -  the  observational  type  to  read  from  LLT  data 

level  -  vertical  level  to  read 

stat  -  type  of  statistic  to  compute  (bias,  std,  rms) 

tval  -  threshold  value  for  the  threat  score,  probability  of  detection,  false  alarm,  and 
skill  score;  it  will  be  an  optional  item  since  it  is  not  always  be  used. 

Figure  6.  Namelist  Variables  and  Description 


For  each  value  of  parm,  there  must  be  a  corresponding  value  for  dsetname, 
obs_parm,  odsetname,  units,  lvltype  and  obstype.  For  example,  if  the  parm  value  is 
‘air_temp,’  there  must  be  values  for  the  dsetname  which  can  be  £fcst_ops,’  the  obs_parm 
which  should  be  £air_temp,’  the  odsetname  which  can  be  ‘fnmoc,’  the  units  which  should  be 
£deg_K,’  the  lvltype  which  can  be  ‘isbrjvl’  and  the  obstype  which  can  be  £raob_qc.’ 
b.  boundary 

This  Fortran  subroutine  determines  the  geographical  area  from  which  to 
extract  observations  to  use  in  the  verification.  It  computes  the  minimum  and  maximum 
latitude  and  longitude  for  a  given  geometry’s  area  box.  These  minimum  and  maximum 
latitiiHp.  and  longitude  are  required  for  reading  the  observational  data  from  ISIS  lit  database. 
It  fills  the  single  dimension  arrays,  x  and  y,  with  the  values  representing  the  left,  right,  bottom 
and  top  boundaries.  It  converts  x/y  values  to  latitude/longitude  values  by  calling  FNMOC 
utility,  vxyll.  It  then  finds  the  minimum  and  maximum  latitude  and  longitude. 
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c.  f2ob 

This  Fortran  subroutine  interpolates  the  model  forecast  fields  to  the 
observation  locations.  It  obtains  the  number  of  rows  and  columns  for  the  geometry  defined 
by  GEOMNM2  by  the  ISIS  utility  getgeom  and  finds  the  maximum  array  dimensions  for 
x  and  y  arrays.  It  converts  observations  latitude/longitude  points  to  x/y  values  by  calling 
FNMOC  utility,  vllxy.  It  then  interpolates  the  model  forecast  to  the  observation  points  by 
calling  FNMOC  utility,  f  intrp. 

<L  intgeom 

This  Fortran  subroutine  interpolates  one  geometry  to  another  geometry.  This 
interpolation  is  necessary  when  a  model  needs  to  be  verified  in  the  geometry  other  than  the 
geometry  in  which  it  is  stored.  For  example,  the  global  models  such  as  NOGAPS  are 
compared  to  the  regional  models  such  as  NORAPS_ASIA  in  the  same  Asia  region.  It  gets 
the  information  on  the  two  geometries  defined  by  GEOMNM1  and  GEOMNM2  by  calling 
the  ISIS  utilities  ggrd  and  getgeom.  It  then  interpolates  the  first  geometry  to  the  second 
geometry  points  by  calling  the  FNMOC  utility  chgeom. 

e.  lltread 

This  Fortran  subroutine  calls  the  appropriate  LLT  read  subroutine  based  upon 
the  observation  type.  This  subroutine  acts  as  the  middle  man  between  the  main  program 
verobs  and  the  lit  read  subroutines  for  each  observation  type.  There  are  separate  LLT  read 
modules  for  each  observation  types  because  the  include  files  and  the  data  structures  in  ISIS 
are  different  for  different  observation  type.  For  example,  the  observation  type  'raob_qc’  is 
read  by  the  raob_qc_read  subroutine.  The  subroutine  raobqcread  uses  two  ISIS  includes 
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files,  common .  inc  and  RAOB_QC .  H.  It  has  to  use  the  data  structure  TYPE  (raob_qc_int) 
and  TYPE  (raob_qc),  and  use  the  ‘raob_qc’  sequence  type  in  the  call  to  the  ISIS  LLT  read 
utility  lrd.  Currently,  verobs  reads  only  the  observation  types,  raob_qc,  sfcjnd,  sfc_ship, 
sfc_ship_met_qc  and  alty  using  raob_qc_read,  sfcjnd read,  sfcshipjead, 
sfcshipmetqcread  and  alty  read,  respectively.  Other  observation  types  will  be  added 
as  more  models  and  parameters  are  added  to  the  model  verification  system. 

C.  DESIGN  OF  STAT  LIB 


The  requirements  analysis  indicated  the  following  statistics  should  be  included  in  the 
initial  prototype:  Mean  error  (bias),  standard  deviations  (stdev),  root  mean  square  (rms), 
anomaly  correlation  (anc)  for  most  of  the  model  parameters  and  threat  score,  probability  of 
detection,  false  alarm,  and  skill  score  for  selected  model  parameters.  This  research  focusd 
on  just  the  first  three  statistics  since  they  are  most  often  used.  The  other  statistics  will  be 
added  in  future  versions.  Some  of  the  existing  routines  will  be  modified  to  make  them  more 
general  purpose  and  added  as  part  of  the  statistics  library.  The  design  of  each  statistics 
module  is  described  in  the  following  sections. 

1.  Map  Factors 

The  basic  formula  for  the  statistics  are  the  same,  but  the  statistics  routines  need  to 
take  the  map  projections  into  account  to  compensate  for  differences  in  earth  area  at  different 
latitudes  on  the  earth.  This  is  achieved  by  applying  a  map  correction  factor  at  each  grid  point. 
Then  the  routines  calculate  the  area  using  the  new  x-  and  y-  coordinates.  The  general 
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mathematical  formula  for  the  statistics  is 


/surface s(A.,cp)Sa  /  surface  area  =  Q>n  WJ  /  £Wn 

where  s=value  at  a  given  i/j  grid  point,  A=longitude,  <p=latitude,  Wn  are  weighting  factors. 

There  are  two  distinct  cases  to  consider  in  the  weighting  factors  or  map  factors.  First, 
the  observations  are  all  independent.  Therefore,  each  observation  has  equal  weight,  and  the 
statistics  formula  becomes  a  simple  average  formula.  Second,  the  grid  points  in  which  they 
lie  must  be  weighted  according  to  the  relative  size  of  the  physical  area  related  to  the  map 
factors  for  the  relevant  projection.  In  general, 

Wn=  (Ax;,  Ayy)n 

where  Axjj  =  h^A^,  Ay,  =  1}  Aqjj ,  Ij  and  depend  on  the  map  projection  and  A X  is  the 
difference  between  two  longitude,  and  Acp  is  the  difference  between  two  latitude  of  the  box 
the  s  value  lies. 

According  to  FNMOC’s  model  meta  data  database  table, 
ops_meta_grid_db .  grid_reg_geom,  FNMOC’s  models  use  polar  stereo,  spherical, 
lambert,  and  mercator  projections.  FNMOC  verifies  NOGAPS  in  spherical  projection  against 
its  analysis  with  the  map  correction  factor  currently.  Some  models  are  verified  without  the 
map  projection  consideration  against  the  observational  data  with  the  assumption  that  each 
observation  has  the  equal  weighting  factor  of  1 .  The  map  factors  for  each  map  projection 
used  at  FNMOC  are  as  follows:  [Ref  10,  Ref.  12] 

Spherical: 

K  =  COStPij 

hy  =  1 
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Polar  Stereo: 

hx  =  hy  =  (1/2)(l+sincpij) 


Mercator: 

hx  =  hy  =  cos^  /  cos(p0 

where  (p0  is  the  latitude  at  which  the  projection  is  “true”  and  can  be  obtained  from  FNMOC 
database  attribute  geom_parm_l  in  degrees. 

Lambert: 

h*  =  hy  =  (coscpy/coscp!)1'*1  [(l+sincpj)  /  (l+sincp^)^ 

where  K  =  lnfyoscpj/coscpJ  ln[tan(7r/4  -  (p/2)  /  tan(7t/4  -  <p2/2)] 

(pl3  (p2  are  standard  latitudes  of  the  projection;  their  values  can  be  obtained  from  FNMOC 
database  attributes  geom_parm_l  and  geom_parm_2  in  degrees. 

2.  Bias  (Mean  Error) 

“Error  is  the  simple  difference  of  forecast  minus  verifying  analysis  or  observation.  The 
difference  (error)  field  provides  a  quick  look  at  a  model’s  forecast  performance  or  bias.  Bias 
or  tendency  describes  whether  a  synoptic  field  or  feature  is  under  or  over-forecast.”  [Ref.  13] 
The  advantage  of  the  simple  difference  fields  is  that  they  are  easy  to  compute  and  understand. 
They  provide  a  quick  look  at  the  model  forecast  performance.  [Ref.  13]  The  formula  used 
for  bias  is 

E(Fn  -  On)  Wn  /  £Wn  where  F  is  forecast,  0  is  the  observation. 

3.  Standard  Deviations  (stdev) 

“Standard  Deviation  (stdev)  is  a  measure  of  the  scatter  or  variability  about  the  mean 
in  a  series  of  observations.  Standard  Deviation  is  the  positive  square  root  of  the  variance.” 
[Ref.  13]  The  formula  used  for  stdev  is 

sqrt  [(E((F„  -  /  £W„)  -  (E((F„  -  OJWJ  /  EWJ2]. 
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4.  Root  Mean  Square  (rms  or  raise) 


“Root  Mean  Square  Error  (RMSE)  is  defined  as  the  positive  square  root  of  the  mean 
square  error  (MSE).  MSE  is  the  mean  square  of  any  residual.  RMSE  is  the  also  called  the 
standard  error  of  estimate.”  [Ref.  13]  “The  RMSE  is  a  quadratic  score  that  gives  the  average 
magnitude  of  the  errors.  This  statistics  gives  more  weight  to  large  errors  than  to  small  errors 
in  the  average,  and  is  useful  when  large  errors  are  undesirable.”  [Ref.  16]  The  formula  used 
for  rms  is 

Sqrt((£(Fn-OiyWJ/£W„). 

D.  DESIGN  OF  STATISTICS  DATABASE 


The  statistics  database  component  uses  FNMOC’s  RDBMS,  Empress,  to 
consolidate  all  the  model  statistics  in  one  location.  The  database  has  a  table  for  each  model. 
The  data  in  the  tables  are  based  upon  the  model  developers’  recommendations.  A 
consolidated  database  will  speed  up  the  data  retrieval  and  insertion.  It  will  also  accommodate 
modifications  if  the  table  structure  needs  to  be  modified  for  a  particular  model  in  the  future. 
Figure  7  shows  the  SQL  command  used  to  create  the  generic  table  modeljstats. 
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CREATE  TABLE  MODEL  STATS 


(verif_date 

character(10,l) 

not  null, 

sample_size 

integer 

not  null. 

parm_name 

character(32,l) 

not  null, 

unitjname 

character(32,l) 

not  null, 

geom_name 

character(32, 1) 

not  null, 

lvljype 

character(24,l) 

not  null. 

level_l 

float(2) 

not  null. 

tau 

integer 

not  null. 

statjype 

character(16,l) 

not  null, 

stat_value 

float(2) 

not  null. 

verif_source 

character(8,l) 

not  null, 

obsjype 

character(24,l) 

not  null) 

Indices:  NORMAL  (2,  15)  parm_id  ON  (parm_name) 
NORMAL  (2,  15)  geom_id  ON  (geom_name) 
NORMAL  (2, 15)  level_l_id  ON  (level_l) 
NORMAL  (2, 15)  tau_id  ON  (tau) 

NORMAL  (2, 15)  stat_type_id  ON  (stat_type) 
NORMAL  (2,  15)  obs_type_id  ON  (obs_type) 


Figure  7.  SQL  used  to  create  the  generic  table 


The  basic  table  attributes  are  shown  in  Figure  8.  This  structure  was  saved  in  a  file 
stattbl  by  the  Empress  command  ‘display  model  stats  all  dump  into  stattbl;.  ’  The  tables  for 
other  models  were  created  using  the  structure  stored  in  the  file  stattbl  by  the  Empress 
command  ‘create  nogaps  from  stattbl; 

The  use  of  the  indices  improved  the  retrieval  performance  from  greater  than  3 
minutes  to  less  than  5  seconds.  However,  the  insertion  performance  was  degraded  especially 
as  the  number  of  records  increased.  The  tradeoff  between  these  two  scenarios  favored  the 
increase  in  the  retrieval  performance.  The  compromise  may  be  to  drop  the  indices,  perform 
the  insertion,  then  rebuild  the  indices  every  time  data  are  updated  according  to  a  local 
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database  expert,  but  this  compromise  has  not  been  tried  for  this  research. 


Figure  8.  Statistics  Table  Attributes 


E.  DESIGN  OF  GRAPHICS 


The  graphics  component  consists  of  one  IDL  program  currently  in  the  prototype. 
This  IDL  program  plots  the  bias,  stdev  and  rms  for  a  single  model,  single  geometry,  single 
parameter,  single  forecast  period,  single  atmospheric  pressure  level  and  single  observation 
type  on  one  graph.  More  IDL  programs  will  be  added  in  future  enhancements  to  create  the 
graphs  for  other  combinations.  The  IDL  program  creates  a  GIF  file  for  display  in  web 
browsers.  Figure  9  shows  the  structural  design  of  the  graphics  component. 
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Figure  9.  Graphics  Design 


The  IDL  program  reads  the  data  from  a  text  file  into  the  IDL  array.  It  reads  various 
environment  variables  to  use  within  the  program.  It  builds  sub-arrays  based  upon  the 
statistics  type,  e.g.,  bias,  stdev  and  rms.  Future  IDL  programs  will  build  different  sub-arrays 
based  on  the  models,  geometries,  forecast  periods,  atmospheric  pressure  levels,  or 
observation  types.  It  formats  FNMOC’s  10-digit  date-time  group  (1998032000)  into  a  more 
meaningful  date-time  format  (00Z  20Mar  98)  to  use  on  the  x-axis  label.  It  plots  the  bias  and 
rms  with  different  symbols  and  colors,  and  stdev  as  the  shaded  areas  above  and  below  the  bias 
as  requested  by  the  users.  Future  IDL  programs  will  create  the  scatter  plots  and  other  plots 
as  the  requirements  change.  An  example  of  the  current  graphs  is  shown  in  Figure  13  in  the 
next  section. 
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F.  DESIGN  OF  USER  INTERFACE 


Figure  10  shows  the  structural  design  of  the  user  interface  component.  This 
component  ties  together  the  statistics  database  and  graphics  components.  It  has  a  GUI  and 
Common  Gateway  Interface  (CGI)  to  give  the  users  access  to  the  model  statistics. 
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User  Interface 


Figure  10.  User  Interface  Design 

The  GUI  portion  has  several  html  forms  to  interface  with  the  users.  The  first 
model  verification  system  web  page  shown  in  Figure  1 1  is  created  by  the  file  i ndex.html.  It 
is  shown  using  a  Netscape  web  browser. 


45 


Figure  1 1 .  Home  Page 


When  the  user  picks  a  model  by  clicking  on  a  selection  button,  the  model  page  is 
displayed.  An  example  model  page  is  shown  in  Figure  12  for  the  WAM_GLOBAL  model.  This 
page  is  created  by  the  file  wam.html.  The  model  pages  have  the  default  values  already 
selected,  but  the  users  can  change  the  values  by  simply  clicking  other  choices.  The  user 
would  then  click  on  the  ‘Submit  the  query’  button  when  (s)he  is  finished  composing  the 
request  or  the  ‘Cancel’  button  at  any  time. 
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Figure  12.  WAMGLOBAL  Statistics  Page 

Once  the  user  submits  the  query,  the  CGI  portion  of  this  component  takes  over. 
The  CGI  portion  has  several  programs  to  satisfy  the  user  requests  dynamically.  Since  this 
research  was  implemented  in  the  current  operational  environment,  several  accommodations 
had  to  be  made.  The  FNMOC  intranet  web  server  is  on  a  Sun  workstation  called  ‘devul.’ 
As  discussed  earlier  in  the  statistics  database  component,  the  stat_db  is  on  a  database 
development  workstation  called  cdiv60-3.’  The  model  statistics  must  be  retrieved  from  div60- 
3  and  transferred  to  devul  to  work  in  the  current  configuration.  The  GIF  images  are  also 
created  on  div60-3  because  it  has  better  performance  than  devul. 

When  the  user’s  request  is  submitted,  a  CGI  perl  script  in  the  cgi  -bin  is  executed 
to  processes  the  user  request.  This  CGI  script  parses  the  user  request  and  starts  the 
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processing  of  the  user  request  via  run  j  ob  on  div60-3.  This  run  j  ob  involves  data  retrieval 
from  stat  db  by  Empress  SQL.  It  then  formats  the  retrieved  data  by  awk  for  IDL  to  read. 
It  executes  the  IDL  program  described  in  the  previous  section  which  creates  a  GIF  file.  It 
then  transfers  the  GIF  file  to  the  web  server  via  f  tpbatch.  Once  the  GIF  file  transfers 
successfully,  the  GIF  image  is  displayed  on  the  web  browser. 

Figure  13  shows  the  result  of  the  query  from  Figure  12  for  WAM_GLOBAL.  At  this 
point,  the  user  can  print  the  image,  save  the  image  in  different  formats  supported  by  the  web 
browser  (e.g.  GIF,  postscript,  etc.)  or  just  view  the  image. 


Figure  13.  WAM  GLOBAL  Statistics  Graph 
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V.  EVALUATION 


The  evaluation  of  the  model  verification  system  included  alpha  testing  and  beta 
testing.  The  alpha  testing  was  performed  by  the  developer  by  comparing  the  computed 
statistics  to  the  existing  verification  system  verobs.  The  beta  testing  was  performed  by 
FNMOC  operations  and  FNMOC  model  developers  (users).  The  operations  ran  the  model 
verification  system  and  verobs  in  parallel  for  four  weeks.  The  users  used  the  prototype  to 
access  the  verification  statistics  via  the  Netscape  web  browser.  The  addition  of  a  new 
model,  COAMPS  J30UTHWEST_ASIA,  demonstrated  the  ease  of  extending  the  model 
verification  system  to  include  other  models. 

A.  ALPHA  TESTING 

Each  unit  (program  and  subroutines)  of  the  ops  run  components  was  unit  tested  using 
the  Fortran  debugger,  TotalView,  which  enabled  the  developer  to  test  the  binaries 
interactively.  The  debugger  allows  the  tester  to  assign  values  to  variables,  print  values  of 
variables,  and  step  through  the  statements  in  the  calling  program  and  called  subroutines.  This 
testing  was  useful  in  identifying  code-level  bugs,  e.g.,  the  parameter  orders  in  the  actual  and 
formal  parameter  lists  of  the  subroutine  call  to  boundary  in  the  main  program  verobs  did  not 
match. 

The  statistics  computed  by  the  statistics  library  subroutines  were  compared  to  the 
statistics  computed  using  Micro  so  it  Excel.  A  set  of  numbers  from  the  model  forecast 
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and  a  set  of  numbers  from  the  observational  data  were  assigned  to  two  arrays.  The  statistics 
bias,  stdev,  and  rms  were  computed  by  the  statistics  library  subroutines  and  Excel.  These 
two  sets  of  statistics  matched  as  shown  in  Appendix  C.  The  test  program  for  the  statistics 
library  subroutines,  stattest,  is  included  in  Appendix  C. 

The  developer  compared  the  model  forecast  and  observational  data  at  the  first  15 
latitude/longitude  points  of  the  test  run  of  the  model  verification  system  to  the  first  15 
latitude/longitude  points  of  the  operational  verobs  to  ensure  they  matched  point-by-point 
as  well  as  the  overall  computed  statistics.  An  error  in  the  loop  index  in  the  statistics  library 
routines  was  discovered  and  corrected  during  the  alpha  testing. 

The  test  runs  included  verification  of  each  model  in  its  own  area  and  the  verification 
of  the  global  model  in  the  regional  model  areas.  The  purpose  was  to  test  the  interpolation 
involved  when  a  model  was  verified  in  an  area  other  than  its  own.  The  global  model  NOGAPS 
was  verified  in  the  regional  model  NORAPS  areas  (Asia,  Continental  US,  Europe,  Indian 
Ocean)  and  in  the  COAMPS  area  (Europe).  This  allowed  the  comparison  of  multiple  models 
in  the  same  geometry.  A  change  in  one  of  the  COAMPS  geometries  was  discovered  during 
the  alpha  testing.  The  COAMPS  model  developer  modified  the  geometry  for  the  model,  but 
the  verification  systems  were  not  aware  of  this  change.  The  change  in  the  geometry  resulted 
in  the  job  running  without  computing  any  statistics.  This  change  was  implemented  in  the 
model  verification  system  by  changing  a  SMS  variable. 

The  statistics  database  component  was  tested  by  inserting  data  and  performing 
queries  against  the  database.  The  time  required  to  return  data  from  the  initial  queries  was 
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much  longer  than  anticipated.  Modifications  to  the  database  tables  were  made  which 
improved  query  performance  significantly. 

A  set  of  data  from  statdb  was  saved  in  a  text  file  to  be  the  test  data  for  the  IDL 
program  in  the  graphics  component.  The  graphics  component  was  tested  by  printing  out  the 
data,  printing  out  the  subarrays  created  from  the  data  and  examining  the  graphs  of  the  model 
statistics.  The  user  interface  component  was  tested  using  the  Net  scape  web  browser.  The 
cgi  scripts  were  installed  on  the  FNMOC  intranet  web  server  cgi-bin  because  the  current 
web  server  configuration  does  not  allow  the  execution  of  the  cgi  scripts  in  cgi-bin 
directory  of  individual  users/developers.  The  FNMOC  intranet  webmaster  installed  the  cgi 
scripts  in  the  web  server  cgi-bin  directory. 


B.  BETA  TESTING 


The  purpose  of  the  beta  testing  was  to  compare  the  model  verification  system  to  the 
existing  verification  process  and  to  test  the  user  interface  of  the  prototype.  The  beta  testing 
was  performed  by  operations  and  the  users  at  FNMOC.  The  operational  beta  testing  started 
on  18  March  1998  by  FNMOC  operations  to  verify  NOGAPS ,  NORAPS ,  COAMPS  and 
WAM_GLOBAL  models  in  their  own  areas.  The  verification  of  NOGAPS  in  the  NORAPS  and 
COAMPS  areas  was  added  on  25  March  1998.  The  model  verification  system  was  comparable 
to  the  existing  verification  system  verobs,  but  it  was  much  easier  to  add  the  verification  of 
NOGAPS  in  the  NORAPS  and  COAMPS  areas. 
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An  important  part  of  the  beta  test  was  the  evaluation  of  the  prototypes  ease  of  use. 
Generally,  users  indicated  that  the  system  was  very  easy  to  use.  Another  area  examined  was 
how  easy  it  was  to  access  the  model  statistics.  Again,  users  evaluated  this  area  positively. 
Another  area  evaluated  was  whether  the  system  provided  the  required  displays.  For  the  most 
part  this  area  was  positively  evaluated.  However,  the  users  wanted  more  types  of  graphs  such 
as  multiple  models  on  a  single  chart,  wanted  the  number  of  observations  displayed,  and  better 
performance,  i.e.,  faster  return  of  the  images.  Based  on  the  Beta  testing  results,  the  prototype 
meets  the  easy-to-use  model  verification  system  requirements. 


C.  MODIFICATION 


A  new  model,  COAMPS_SOUTHWEST_AS  IA,  was  added  to  the  prototype  after  the 
initial  product  implementation.  This  provided  an  opportunity  to  evaluate  how  easy  it  would 
be  to  modify  the  verification  system.  It  was  very  easy  to  add  the  additional  model  to  the 
model  verification  system  and  no  design  changes  were  required.  Adding  this  new  model 
required  only  a  few  modifications.  The  operations  executes  the  job  script  mverif.job  with 


appropriate  SMS  variables 

for  the 

model 

(See 

Appendix 

A) 

after 

COAMPS_SOUTHWEST_ASIA 

completes 

its 

run. 

A 

table 

for 

COAMPS_SOUTHWEST_AS IA  was  created  in  the  stat  db.  The  html  forms  were  updated 
to  reflect  the  additional  model.  This  demonstrated  that  the  ease  of  modification  requirement 
was  satisfied. 
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D.  SUMMARY 


This  research  has  resulted  in  the  development  and  demonstration  of  an  easy-to-use 
model  verification  system  for  all  FNMOC  models.  Furthermore,  it  has  demonstrated  that 
model  verification  can  be  standardized  in  FNMOC.  The  model  verification  standardization 
was  achieved  by  the  several  components  of  the  model  verification  system.  The  reusable 
statistics  library  standardized  the  statistics  computation,  the  statistics  database  standardized 
the  data  format,  data  location,  data  schema,  interface  to  the  database,  and  the  graphics 
standardized  the  graphical  display  of  the  model  verification  statistics.  Additionally,  it  proved 
the  concept  of  a  easily  modified  verification  system.  Adding  a  model  to  the  system  required 
no  design  changes  and  no  source  code  level  changes  other  than  adding  new  modules  to  handle 
the  additional  observation  types.  Finally,  the  prototype  demonstrated  that  an  easy  to  use 
system  could  be  developed  to  return  data  and  graphs  to  the  user’s  desktop.  The  use  of  a  GUI 
and  a  web  browser  provided  the  users  with  an  easy-to-use  access  to  the  model  verification 
statistics.  No  user  training  was  required.  Therefore,  the  research  successfully  addressed  the 
research  questions  and  has  proven  the  concepts  can  be  implemented  in  the  full  model 
verification  system. 
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VL  RECOMMENDATIONS  AND  FUTURE  RESEARCH 


This  chapter  discusses  the  recommendations  for  future  FNMOC  model  verification 
systems  implementaion  based  upon  the  results  of  this  research.  It  suggests  areas  of  future 
research  in  fully  implementing  a  single  model  verification  system  for  FNMOC. 


A.  RECOMMENDATIONS 


FNMOC  needs  to  use  one  verification  system  to  verify  all  the  meterological  and 
oceanographical  models.  This  single  system  will  provide  many  benefits  to  FNMOC.  First  a 
single  verification  system  will  eliminate  the  redundancies  and  inconsistencies  of  multiple 
verification  systems.  Additionally,  it  will  eliminate  the  maintenance-intense  verification 
systems  needed  to  maintain  data  consistency  and  accuracy.  It  will  also  standardize  the  model 
verification  process.  An  additional  benefit  is  that  by  using  the  same  verification  system  the 
model  developers  will  be  able  to  focus  more  on  the  model  development  effort  than  on  the 
verification  process.  This  research  proved  the  feasibility  of  using  a  single  model  verification 
system  for  all  the  meteorological  and  oceanographic  models  at  FNMOC  by  providing  a  easily 
modified  system.  This  model  verification  system  demonstrated  it  can  verify  all  the  models  and 
standardize  the  model  verifications  at  FNMOC  and  became  useful  to  the  model 
verification/validation  group  in  FNMOC.  This  model  verification  system  also  provides  a 
verification  system  for  the  models  that  do  not  currently  have  a  verification  systems. 

FNMOC  can  provide  users  with  an  easy-to-use  tool  to  access  the  model  verification 
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statistics  that  meets  the  users’  needs.  Having  an  easy-to-use  tool  that  is  readily  assessible  via 
the  web  technology  is  important  for  both  internal  and  external  users.  The  internal  users  could 
be  the  model  developers,  model  researchers,  managers,  statisticians,  or  others  in  the  command 
responsible  for  FNMOC  data  accuracy.  The  external  users  could  be  US  Navy  organizations, 
US  Air  Force  organizations,  or  other  organizations.  This  research  proved  that  the  concept 
of  an  easy-to-use  model  verification  system  via  GUI  and  the  web  browsers  is  feasible.  It 
provides  access  to  the  verification  statistics  and  graphs  to  anyone  who  has  a  web  browser. 
Giving  users  easy  access  to  the  model  verification  statistics  makes  their  efforts  to  fine  tune 
the  models  and/or  evaluate  their  performance  more  effective.  It  is  much  too  difficult  and  time 
consuming  to  access  the  information  in  the  currently  existing  model  verification  systems  in 
FNMOC. 

FNMOC  needs  to  document  the  model  verification  requirements  for  all  the  models. 
This  research  identified  and  documented  each  model’s  verification  requirements.  This  will 
be  useful  for  current  and  future  model  developers  and  model  users  both  within  FNMOC  and 
outside  FNMOC. 

FNMOC  should  use  prototyping  as  much  as  possible  in  developing  new  systems.  The 
prototype  was  a  very  useful  communication  tool  between  the  designer/developer  of  the  model 
verification  system  and  the  users.  It  helped  to  firm  up  the  requirements  and  identified 
additional  requirements  that  were  not  identified  in  the  initial  requirements  analysis,  especially 
in  the  graphics  area. 

Finally  FNMOC  should  build  a  comprehensive  model  verification/validation  system 
for  all  the  models  in  FNMOC.  The  first  step  in  this  effort  should  be  building  a  comprehensive 
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quantitative  model  verification/validation  system  that  has  three  subsystems.  One  subsystem 
should  display  the  model  forecast  and  analysis,  another  subsystem  should  display  the 
observational  data,  and  a  final  subsystem  should  display  model  verification  statistics.  This 
research  dealt  with  the  third  subsystem.  Each  subsystem  should  have  the  same  look  and  feel 
interfaces  with  a  GUI.  Addition  of  subject  matter  expertise  (qualitative  aspect)  to  aid  the 
interpretation  of  the  quantative  measures  will  provide  a  complete  model  verification/validation 
system  for  all  the  models  at  FNMOC. 


B.  FUTURE  RESEARCH 


There  are  many  potential  extensions  for  the  model  verification  system  to  implement 
all  of  the  user  requirements  identified  during  the  requirements  analysis. 

1.  Ops  Run 

First,  the  new  verobs  should  be  completed  by  adding  more  observation  types.  This 
means  adding  the  Fortran  subroutines  to  read  the  additional  observation  types  from  the  I S I S 
LLT  database. 

Second,  more  models  should  be  added  to  the  model  verification  system.  There  are 
several  additional  ocean  models  to  verify,  and  these  ocean  models  were  prioritized  for  their 
implementation  order.  The  observation  types  MCSST,  Buoy  and  Bathy  need  to  be  read  by 
the  subroutines  mcsst  read,  buoy  read,  bthy_read,  respectively,  for  the  OTIS_GLOBAL, 
OTIS_W_ATL  and  OTIS_W_PAC  models.  The  next  models  to  implement  are 
TOPS_GLOBAL,  TOPS_W_ATL  and  TOPS_W_PAC  using  the  same  observation  types  as 
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OTIS  models.  The  users  want  to  compare  the  OTIS  and  TOPS  models  and  determine 
whether  FNMOC  needs  to  run  both  models.  The  observation  type  SSMI_EDI_ICE  needs 
to  be  read  by  the  subroutine  ssmi_edi_ice_read  for  the  PIPS_N_HEM  model. 

Third,  the  verification  against  the  model  analysis,  veranal  should  be  added.  This 
involves  several  steps.  Complete  the  design,  using  the  existing  verification  system  nogs  tat 
if  feasible.  Expand  the  statistics  database  and  user  interface  components  to  reflect  the 
veranal  statistics. 

2.  Statistics  Library 

The  map  factor  subroutine  in  the  statistics  library  component  should  be  revisited  and 
completed  for  all  the  projections  used  at  FNMOC  as  described  in  the  design  chapter  because 
the  map  factors  will  be  used  in  veranal.  Other  statistics  computation  modules  should  be 
added  to  compute  the  additional  statistics  such  as  anomaly  correlation,  probability  of 
detection,  threat  score,  etc. 

3.  Statistics  Database 

The  stat_db  should  be  incorporated  into  FNMOC’ s  database  and  FNMOC  database 
administrators  (DBA)  should  be  responsible  for  administering  the  stat  db.  This  will  allow  the 
operations  to  write  directly  into  the  database  as  the  statistics  are  computed  twice  a  day.  This 
will  eliminate  the  current  method  of  one  person  transferring  and  populating  the  database 
manually.  This  will  also  make  the  latest  statistics  available  to  the  users. 

4.  Graphics 

The  graphics  component  should  be  expanded  by  adding  more  types  of  graphs.  There 
are  many  different  possible  graphs  based  on  the  combination  of  models,  forecast  periods, 
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levels,  observation  type  and  statistics.  Some  of  the  combinations  of  interest  include  multiple 
statistics  for  a  single  model,  single  forecast  period,  single  level,  single  observation  type; 
multiple  levels  for  a  single  model,  single  forecast  period,  single  observation  type,  single 
statistic;  multiple  forecast  periods  for  a  single  model,  single  level,  single  observation  type, 
single  statistic;  multiple  models  for  a  single  forecast  period,  single  level,  single  observation 
type,  single  statistic.  One  of  the  users  suggested  adding  the  maps  of  the  geometries  used  in 
the  various  FNMOC  models  and  adding  the  number  of  observations  on  the  graphs.  These  are 
very  good  suggestions  and  should  be  added  to  the  system. 

5.  User  Interface 

The  user  interface  component  should  be  expanded  to  handle  the  various  types  of 
graphs  described  in  the  previous  paragraph.  The  html  forms  should  be  made  to  be  more 
robust  and  remove  the  possibility  of  user  input  errors.  Currently,  there  is  room  for  user  input 
errors  in  the  html  forms  in  matching  the  atmospheric  levels,  observation  types  and 
parameters  because  all  the  levels  and  observation  types  (both  surface  and  upper  levels)  are 
available  on  the  forms.  Here  is  an  example  scenario  to  demonstrate  the  erroneous  input. 
Let’s  say  the  user  wants  to  view  the  graph  of  NOGAPS  for  air_temp  at  the  surface  level.  The 
user  clicks  air_temp  for  the  parameter,  0  for  the  level  (the  correct  surface  level  for  air_temp 
is  2.0  meters),  raob_qc  for  the  observation  type  (raob_qc  is  not  a  surface  level  observation 
type).  The  correct  selections  would  have  been  air_temp,  2  meters,  and  sfc_land  or 
sfc_ship_met_qc.  The  users  for  whom  this  research  is  designed  are  familiar  with  these  facts. 
However,  this  is  a  definite  shortcoming  when  this  model  verification  system’s  user  group 
expands  in  the  future. 
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6.  Other  Open  Issues 

The  current  hardware  configuration  in  FNMOC  has  a  severe  impact  on  the  response 
time  in  the  model  verification  system.  The  intranet  web  server  is  on  an  older  and  slower 
workstation  (devul)  while  the  model  statistics  database  is  on  a  different  workstation  (div60- 
3).  This  hardware  configuration  requires  a  communication  (handshake)  from  devul  to  div60- 
3.  The  model  verification  system  then  has  to  use  the  run  j  ob  script  to  query  the  database 
and  create  a  GIF  image  on  div60-3  from  devul.  Once  the  GIF  image  is  created,  another 
handshake  from  div60-3  to  devul  is  needed  to  send  the  GIF  image  back  to  devul  from 
div60-3  by  FTP.  The  first  handshake  takes  approximately  one  minute  while  the  actual  data 
query  and  image  generations  take  approximately  seven  seconds.  It  takes  another  1  to  2 
seconds  to  transfer  the  GI F  file.  The  delays  associated  with  the  handshakes,  run  j  ob  and 
ftp  could  be  eliminated  if  the  database  and  web  server  were  on  a  single,  faster  workstation. 
The  specific  hardware  requirements  for  a  single  server  for  web,  database,  and  graphics  need 
to  be  identified.  Having  hardware  with  the  appropriate  capability  would  also  ease  the 
development  and  testing  process.  It  would  eliminate  the  need  for  various  routines  such  as 
run  job  and  ftp.  This  would  decrease  the  time  needed  to  process  the  user  request  by 
eliminating  the  need  for  the  various  hardware  systems  to  communicate  with  each  other. 
Finally,  this  would  also  help  in  planning  for  the  future  installation  of  the  model  verification 
system  on  the  internet  for  external  users. 
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APPENDIX  A 


A.  SMS  VARIABLES 

The  following  are  common  SMS  variables  for  all  the  models: 

ISIS_INIT=/a/ops/isis/db_init/init_ops.ksh 
OPSPATH=/a/ops 
OP  SBIN=/  a/  ops/bin 
CRDATE=$(dtg) 

1.  NOGAPS 

TAUI=0 

TAUE=144 

TAUINC=12 

GEOMNM 1  =global_3 60x 1 8 1 
GEOMNM2=global_3 60x1 8 1 
ISIS_TABLE=NOGAPS 
VERIF_SOURCE=obs 

2.  NORAPS_ASIA 

TAUI=0 

TAUE=48 

TAUINC=12 

GEOMNMl=asia_nestl_appl 
GEOMNM2=asia_nest  l_appl 
ISIS_TABLE=NORAPS_ASIA 
VERIF_SOURCE=ob  s 

3.  NORAPSCONUS 

TAUI=0 

TAUE=48 

TAUINC=12 

GEOMNM  1  =conus_nest  1  _appl 
GEOMNM2=conus_nest  1  _appl 
ISIS_TABLE=NORAPS_CONUS 
VERIF  SOURCE=obs 
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4. 


NORAPS  EUROPE 


TAUI=0 

TAUE=48 

TAIHNC=12 

GEOMNM 1  =europe_nest  1  _appl 
GEOMNM2=europe_nest  1  _appl 
ISIS_TABLE=NORAPS_EUROPE 
VERIF_SOURCE=obs 

5.  NORAPSINDOCN 

TAUI-0 

TAUE=48 

TAUINC=12 

GEOMNM  1  =ind_ocn_nest  1  _appl 
GEOMNM2=ind_ocn_nest  1  _appl 
ISIS_TABLE=NORAPS_IND_OCN 
VERIF_SOURCE=obs 

6.  NOGAPS  FOR  ASIA 


TAUI=0 

TAUE=48 

TAUINC=12 

GEOMNM  1  =global_3 60x1 8 1 
GEOMNM2=asia_nest  1  _appl 
ISIS_TABLE=NOGAPS 
VERIF_SOURCE=obs 

7.  NOGAPS  FOR  CONUS 


TAUI=0 

TAUE=48 

TAUINC=12 

GEOMNM  1  =global_3 60x1 8 1 
GEOMNM2=conus_nest  1  _appl 
ISIS_TABLE=NOGAPS 
VERIF_SOURCE=obs 

8.  NOGAPS  FOR  EUROPE 


TAUI=0 
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TAUE=48 

TAUINC=12 

GE0MNM1  =global_3 60x1 8 1 
GEOMNM2=europe_nest  l_appl 
ISIS_TABLE=NOGAPS 
VERIF_SOURCE=obs 

9.  NOGAPS  FOR  EUROPE_NEST2 


TAUI=0 

TAUE=48 

TAUINC=12 

GEOMNMl=global_360xl  8 1 
GEOMNM2=europe_nest2_appl2 
ISIST  ABLE=NOGAP  S 
VERIFS  OURCE=obs 

10.  NOGAPS  FOR  EUROPE_NEST3 


TAUI=0 

TAUE=24 

TAUINC=6 

GEOMNMl=global_3 60x1 8 1 
GEOMNM2=europe_nest3_appl3 
ISIS_TABLE=NOGAPS 
YERIF_SOURCE=obs 

11.  COAMPS_EUROPE 


TAUI=0 

TAUE=48 

TAUINC=12 

GEOMNM 1 =europe_nest2_appl2 
GEOMNM2=europe_nest2_appl2 
ISIS_TABLE=COAMPS_EUROPE 
VERIFS  OURCE=ob  s 

12.  COAMPS_EUROPE  FOR  NEST3 

TAUI=0 

TAUE=24 

TAUINC=6 

GEOMNM  1 =europe_nest3_appl3 
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GEOMNM2=europe_nest3_appl3 

ISIS_TABLE=COAMPS_EUROPE 

VERIF_SOURCE=obs 

13.  COAMPSSOUTHWESTASIA  FOR  NEST2 


TAUI=0 

TAUE=48 

TAUINC=12 

GEOMNM 1  =southwest_asia_nest2_appl 
GEOMNM2=southwest_asia_nest2_appl 
ISIS_TABLE=COAMPS_SOUTHWEST_ASIA 
VERIF_SOURCE=obs 

14.  COAMPS  SOUTHWEST  ASIA  FOR  NEST3 


TAUI=0 

TAUE=24 

TAUINC=6 

GEOMNM  1  =southwest_asia_nest3_appl 
GEOMNM2=southwest_asia_nest3_appl 
ISIS_TABLE=COAMPS_SOUTHWEST_ASIA 
VEREF_S  OURCE=ob  s 

15.  WAMGLOBAL 


TAUI=0 

TAUE=144 

TAUINC=12 

GEOMNM  1  =global_3  60x181 
GEOMNM2=global_3  60x181 
ISIS_TABLE=WAM_GLOBAL 
VERIF  SOURCE=obs 
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B.  NAMELIST  REQUIREMENTS  OBTAINED  FROM  THE  USERS  FOR  EACH 

MODEL 
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C.  NON-SURFACE  NAMELIST  FILES 


1.  NOGAPS,  all  NORAPS  and  all  COAMPS 


&verlst 

parm="air_temp",  "geop_ht",  "wnd_spd", 

dsetname="fcst_ops","fcst_ops","fcst_ops", 

obs_parm="air_temp",  "geop_ht",  "wnd_spd", 

odsetname="fnmoc", "fnmoc", "fnmoc", 

units="deg_K","gpm",  "m/s", 

lvltype="isbr_lvl","isbr_lvl">"isbr_lvl", 

obstype="raob_qc",  "raob_qc",  "raob_qc", 

level=l  000,925,850, 700, 500, 400, 300, 250, 200,150, 100, 

stats- 'bias", "rms","std", 

tval=35.0 

&end 


D.  SURFACE  NAMELIST  FILES 


1.  NOGAPS,  all  NORAPS  and  all  COAMPS 

&sfclst 

sfc_parm="air_temp","air_temp",  "pres","pres",  "wnd_spd","wnd_spd", 
sfc_dsetname="fcst_ops","fcst_ops","fcst_ops","fcst_ops","fcst_ops","fcst_ops", 
sfc_obs__parm="air_temp","air_temp",  "sea_lvl_pres","sea_lvl_pres","wnd_spd",  "wnd_spd", 
sfc_odsetname="fiimoc",  "fnmoc",  "fiimoc",  "fnmoc",  "fiimoc",  "fiimoc", 
sfc_units="deg_K","deg_K","mb","mb","m/s",  "m/s", 
sfc_lvltype="ht_sfc", "ht_sfc",  "msl","msl","ht_sfc","ht_sfc", 

sfc_obstype="sfc_lnd","sfc_ship_met_qc","sfc_lnd","sfc_ship_met_qc","sfc_lnd","sfc_ship 

_met_qc", 

sfc_level=2. 0,2. 0,0. 0,0.0,  19.5,19.5, 

sfc_stats="bias","rms","std", 

sfc_tval=35.0 

&end 
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2. 


WAM  GLOBAL 


&verlst 

parm="sig_wav_ht",  "peak_wav_per", 

obs jparm="inst_wav_ht_2 ", " inst_wav_per" , 

units="m",  "s", 

lvltype-'surface", "surface", 

level=0,0, 

stats="bias","rms","std", 
obstype="  sfc_ship " , 
tval=35.0 
&end 
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APPENDIX  B  SOURCE  CODE 


A.  OPS  RUN 


1.  mverif.job 

#QSUB -It  00:30:00 
#QSUB -IT  00:30:00 

#  QSUB  -lm  lOMw 

#  QSUB  -1M  10MW 
#QSUB  -eo 

#  QSUB  -ko 

#  QSUB  -o  /home/pacek/mverif/etc/mverif.out 

#  QSUB  -s  /bin/ksh 

#  QSUB  -x 

#  —  ■'  — . H  :"?r~~==s~===TT,'.==~===".T-,,r-~~== 

#  local  function  to  handle  the  exit  code  from  executing  binary 

#  .  . . = . ============= 

INIT_user_exitO  { 

case  $?in 
0)  #Normal  exit 

INITJoblog_coinment=MVERIF_COMPLETED_OK 

code=0 

}) 

1)  #pfxgetenv  error  in  the  main  program 
INITJoblog_comment=MVERIF_INFORMATIVE_PFXGETENV_ERROR 
code=0 

2)  #ch2int  error  in  the  main  program 
IMTJoblog_comment=MVERIF_INFORMATIVE_CH2INT_ERROR 
code=0 

99 

3)  #not  enough  info  to  continue 

IMTJoblog_cx)mment=MVERIF_INFORMATIVE_NOT_ENOUGH_INFO 

code=0 

99 

4)  #output  file  open  error 

IMT  j  oblog_comment=M  VERff  _INF  ORMATI  VE_OUTPUT_FEJE__OPEN_ERR 
code=0 

5)  #error  with  ggrd  call 

INITJoblog_comment=MVERIF_INFORMATIVE_GGRD_CALL_ERR 

code=0 

99 

6)  #error  with  getgeom  call 
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INIT  j°blog_comment=MVERIF_INF  ORMATIVE_GET  GEOM_C  ALL_ERR 
code=0 

7)  #error  with  boundary  subroutine  call 

]MTJoblog_coniment==MVERIF_INFORMATIVE_BOUNDARY_CALL_ERR 

code=0 

*)  #Abnormal  exit,  save  log  file 
INITJoblog_comment=MVERIF__F  AILED 
code=99 

if  [  -f  "Stempfile"  ];  then 

cp  Stempfile  $HOME/mveri^etc/o_mverif_err.log 
fi 

99 

esac 

return  Scode 

} 

# -  -  - - — — - — 

#  setup  the  job  environment 

#  . —  --  . —  '  =====  - = 

.  SOPSBIN/initjob 
set  -Sx 

INIT_do_not_notify_operator=0 

IMT_notify_status=ERR 

INIT_notify_users="pacek" 

.  $ISIS_INIT 

#  . =  =====  . =— — . == -  ' — =— 

#  test  to  see  if  env  var  CRDATE  exist,  otherwise  take  the  ops  dtg 

#  ■  —  — —  — — 

if  [  -z  "SCRDATE"  ] 
then 

echo  "Null  CRDATE,  setting  to  ops  dtg." 

CRDATE=$(dtg) 
export  CRDATE 
fi 

#  . .  . .  . . —  — — 

#  set  the  required  env  var  and  export  the  SMS  and  other  var 

#  . =  - -  - - . —  . . — 

#PROGBIN=/home/pacek/mverif7bin 

PROGBIN=${PROGBIN:-$OPSBIN} 

MVERIF_DIR=$OPSPATH/etc/dynamic/app/mverif 

#MVERIF_DIR=$HOME/mverif/etc 

echo  $MVERIF_DIR 

integer  TAUI 

integer  TAUE 

integer  TAUINC 

export  TAUI  TAUE  TAUINC 

#TESTJDIR=/home/pacek/mverif7test 

TEST_DIR=$OPSPATH/etc/static/app/mverif 
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NAMLIST_FILEi=$ISIS_TABLE-veifil 

NAMLIST_FILE2=$ISIS_TABLE-sfcverfil 

print  "namlist_filel="  SNAMLISTJFILEl  "  namlist_file2="  $NAMLIST_FILE2 
export  NAMLIST_FILE1  NAMLIST_FILE2 

# . - . — . .  ■ - . , . , . = . — 

#  job  accounting  info 

#  ■  -  ■a-Br==r.J============s==  ■  

ja 

# . . . . -  -  - -  - == 

#  need  to  pull  out  the  month  and  year  from  CRD  ATE 

//  ■  =============== - - — 

year='echo  SCRDATE  |  cut  -cl -4' 
month- echo  SCRDATE  |  cut  -c5-6' 
case  Smonth  in 
01)  mon-jan’ ;; 

02)  mon-feb' ;; 

03)  mon-mar' ;; 

04) mon-apr' ;; 

05)  mon-  may' ;; 

06)  mon- jun' ;; 

07)  mon='jul' ;; 

08)  mon-  aug' ;; 

09)  mon-sep' ;; 

10)  mon-oct' ;; 

11)  mon-nov' ;; 

12)  mon- dec' ;; 
esac 

#= . —  '  — -  ====== 

if  find  the  appropriate  subdirectory 

//  •  -  . .  ======= - 

subdir=$mon$year 

il -  - ==================== = ===== - = 

#  need  to  test  for  the  existance  of  subdir  otherwise  the 

#  job  will  crash 

#=========  . — 1====1TS=======!=!======== 

if  [  -d  $MVERff_DIR/$subdir  ] 
then 

echo  $MVERIF_DIR/$subdir  "exists" 
else 

mkdir  $MVERIF_DIR/$subdir 
chmod775  $MVERIF_DIR/$subdir 
fi 

#=— —  ■  =  . ======= 

#  the  output  directory 

§  ...  -  - ===== 

OUTDIR=$MVERIF_DIR/$subdir 

echo  $ISIS_TABLE  STAUI STAUE  STAUINC 
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#  . - . — . ==— 

#  determine  the  current  watch  and  month's  stat  file  name 

#  - —  . — '  . . — — 

curr_file=$ISIS_TABLE$GEOMNMl  SCRDATE 
month_fiIe=$ISIS_TABLE$GEOMNMl$mon$year 
if  [[  SGEOMNM2  !=”]] 
then 

curr_file=$ISIS_TABLE$GEOMNM2$CRDATE 

month_file=$ISIS_TABLE$GEOMNM2$mon$year 

fi 

//  -  - . —  . ===== . . — 

#  if  curr_file  exists  (ran  once)  delete  so  program  will  not  exit 

#  - —  -  -  =  — = 

if  [  -f  $OUTDIR/$curr_file  ] 
then 

echo  "removing  stat  out  file" 
rm  $OUTDIR/$curr_file 
fi 

#=— — -  - ============== 

#  to  use  STMPDIR,  the  scratch  area 

#  -  -  ===== 

cd  STMPDIR 

#  -  ■  - =—  - = 

#  copy  the  namelist  files  to  the  scratch  area 

//  . =  . - .  = . — 

if  [[  -f  $TEST_DIR/$NAMLIST_FILE  1  ]] 
then 

cp  $TEST_DIR/$NAMLIST_FILE1  $NAMLIST_FILE  1 
fi 

if  [[  -f  $TEST_DIR/$NAMLIST_FILE2  ]] 
then 

cp  $TEST_DIR/$NAMLIST_FILE2  $NAMLIST_FILE2 
fi 

#  ■  '  . . . .  . 

#  execute  mverif  program 

#  . .  =====  . ==  . ===== 

if  [[  $VERIF_SOURCE  =  ’obs' )] 
then 

print  "calling  verobs" 

SPROGBIN/verobs 
elif  [[  $VERIF_SOURCE  =  ’anal'  ]] 
then 

print  "calling  veranal" 

SPROGBIN/veranal 

else 

print  "VERIF_SOURCE  must  be  either  'obs'  or  'anal'." 
exit  8 
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fi 


//  . = —  . ===== . = — = 

#  append  the  current  run's  stat  to  the  monthly  stat  file 

//  . — — — — - ===== 

#cp  $curr_file  $OUTDBR/$curr_file 
cat  $curr_file  »  $OUTDIR/$month_file 

//  —  -  =— = 

#  close  up  the  job  accounting  info  and  clean  up 

//  . =  . -  ■  ■ . -  ===== 

rm  -f  core 
ja-st 


#  . START  EPILOGUE . 

# 

#  SCCS  IDENTIFICATION:  @(#)mverif.job  1.1  04/24/98 /h/cm/libraiy/mverif/src/job/mverif.job_v 

# 

#  CONFIGURATION  IDENTIFICATION: 

# 

#  SCRIPT  NAME:  mverif.job 

# 

#  SHELL  TYPE:  Kom 

# 

#  DESCRIPTION:  Script  that  runs  MVERIF  which  computes  verifying  stats  of 

#  the  models  against  the  LLT  observations  or  VERANAL  which 

#  computes  verifying  stats  against  the  model  analysis. 

# 

#  COPYRIGHT:  (c)  1 998  FLENUMMETOCCEN 

#  U.S.  GOVERNMENT  DOMAIN 

#  ALL  RIGHTS  RESERVED 

# 

#  CONTRACT  NUMBER  AND  TITLE:  NONE 

# 

#  REFERENCES:  NONE 

# 

#  CLASSIFICATION:  Unclassified 

# 

#  RESTRICTIONS:  NONE 

# 

#  COMPUTER/OPERATING  SYSTEM  CrayUNICOS 

#  DEPENDENCIES: 

# 

#  LIBRARIES  OF  RESIDENCE:  /a/ops/ app/mverif/sre/j ob 

# 

#  USAGE:  qsub  mverif.job 

# 

#  PARAMETERS:  SMS  variables  needed 

#  Name  Description 

#  . 

#  ISISJNIT  ISIS  init  script 

#  CRD  ATE  current  run  dtg 
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#  OPSPATH  ops  path 

#  OPSBIN  binary  directory 

#  PROGBIN  test  binary  directory 

#  MVERIF_DIR  mverif  stat  output  files  directory 

#  GEOMNM1  geometry  name  (e.g.,  conus_nestl_appl) 

#  GEOMNM2  geometry  name  to  interpolate  to 

#  ISIS_TABLE  model  name  (e.g.,  NORAPS_CONUS) 

#  TAUI  starting  tau 

#  TAUE  finishing  tau 

#  TAUINC  tau  increment 

# 

#  RETURN  CODE: 

# 

#  FILES: 

#  Name  Usage  Description 

#  . 

#  curr_file  IN  file  that  contains  the  current  run's  stats 

#  month_file  IN/OUT  file  that  contains  the  month's  stats 

# 

#  DATA  BASES: 

#  Name  Table  Usage  Description 

#  . - . . . 

# 

#  NON-FILE  INPUT/OUTPUT: 

#  Name  Type  Usage  Description 

# 

#  ERROR  CONDITIONS: 

#  Condition  Action 

#  . . 

#  data  not  found  stop  executing 

#  curr_file  not  found  cannot  append  to  month_file, 

#  sends  an  email  to  group 

#  ADDITIONAL  COMMENTS:  NONE 

# 

#  . MAINTENANCE  SECTION . 

# 

#  EXTERNALS  CALLED: 

#  Name  Description 

#  . 

#  verobs  reads  ISIS  grid  data,  ISIS  LLT  data  and  computes 

#  the  models'  verifying  stats 

#  veranal  reads  model  forecast  and  analysis  from  ISIS  grid 

#  and  computes  the  models'  verifying  stats 

# 

#  VARIABLES: 

#  Name  Description 

#  . 

#  year  4-digit  year  from  SCRDATE 

#  month  2-digit  month  from  SCRDATE 

#  mon  3-character  month  (e.g.,  jan) 

#  NAMELIST_FILE  1  namelist  file  name  for  upper  levels 
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#  NAMELIST_FILE2  namelist  file  name  for  surface  level 

# 

#  METHOD:  change  directory  to  the  STMPDIR  and  run  the  Fortran  program 

#  verobs  or  veranal,  copy  the  current  run's  stat  file  to  the 

#  SOPSPATH  and  append  the  current  run's  stat  file  to  the 

#  monthly  stat  file  in  the  SOPSPATH 

# 

#  RECORD  OF  CHANGES: 

#  «CHANGE  NOTICE»  version  1 . 1  (29  Apr  1 998)  -  Kyongsuk  Pace 

#  initial  submission 

# 

# . END  EPILOGUE . 

2.  statupd.ksh 


#!/bin/ksh 

#=====—  . = - - - ======= 

#  inserts  the  model  stats  into  the  stat_db 

// - l -  - ^ - — ■ 

DATA_DIR=/home/pacek/data 
DB_DIR=/d/model-stats 
cd  $DB_DIR 

#=========  ===== - ===== 

#  field  separation  for  Empress 

#  - -  ===== . =  '  -  ====== 

export  MSVALSEP=" 

//  - - ====== — ===== 

#  is  there  a  new  data  file?  if  so,  move  them 

#  . ■-  =  . ■  ===== . . . . ===== 

if  [[  -a  $DATA_DIR  ]] 
then 

mv  $DATA_DIR/* . 
else 

print  "There  are  no  data  files!" 
fi 

#  ========= . =========== 

#  determine  which  model  by  looking  at  the  files  that 

#  ends  with  numeric  0  or  2 

#  example:  NOGAPSglobal_360xl  8 1 1 99802 1 000 

#  . .  . . . ======= - =^== 

for  OBJ  in  *[0-9] 
do 

print  SOBJ 

awk  '/A[0-9]+/  {  print  $1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$1 1,$12  }'  \ 
SOBJ  >  tap 

case  SOBJ  in 

NOGAPSasia_nestl  _appl*) 
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empcmd  stat_db  "insert  into  nogaps_asia_nestl_appl  from  tap;'';; 
NOGAP  Sconus_nestl  _appl*) 

empcmd  stat_db  "insert  into  nogaps_conus_nestl_appl  from  tap;'';; 
NOGAPSeurope_nestl  _appl*) 

empcmd  stat_db  "insert  into  nogaps_europe_nestl_appl  from  tap;";; 
NOGAPSeurope_nest2_appl2*) 

empcmd  stat_db  "insert  into  nogaps_europe_nest2_appl2  from  tap;";; 
NOGAPSeurope_nest3_appl3  *) 

empcmd  stat_db  "insert  into  nogaps_europe_nest3_appl3  from  tap;";; 
NOGAPSglobal*) 

empcmd  stat_db  "insert  into  nogaps_global_360xl81  from  tap;";; 
NOGAPSind_ocn_nestl_appl*) 

empcmd  stat_db  "insert  into  nogaps_ind_ocn_nestl_appl  from  tap;";; 
NORAPS_ASIA*) 

empcmd  stat_db  "insert  into  noraps_asia  from  tap;";; 
NORAPS_CONUS*) 

empcmd  stat_db  "insert  into  noraps_conus  from  tap;";; 
NORAPS_EUROPE*) 

empcmd  stat_db  "insert  into  noraps_europe  from  tap;";; 
NORAPS_IND_OCN*) 

empcmd  stat_db  "insert  into  noraps_ind_ocn  from  tap;";; 

COAMPS_SOUTHWEST_ASIA*) 
empcmd  stat_db  "insert  into  coamps_sw_asia  from  tap;";; 
COAMPS_EUROPE*) 

empcmd  stat_db  "insert  into  coamps_europe  from  tap;";; 
WAM_GLOBAL*) 

empcmd  stat_db  "insert  into  wam_global  from  tap;";; 

*) 

print  "no  stat  table  for "  $OBJ;; 
esac 

mv  $OBJ  /home/pacek/backup 
done 


3.  v_data.h 

! . START  PROLOGUE . 

!  SCCS  IDENTIFICATION:  @(#)v_data.h  1.1  04/24/98 
!  RECORD  OF  CHANGES: 

!  «CHANGE  NOTICE»  Version  1.1  (29  Apr  1998)  -  Kyongsuk  Pace 
!  Initial  submission 

! . END  PROLOGUE . 

I************************************************************ 

!The  Fortran  include  file  V_DATA  will  hold  all  the  data  definitions 
[used  throughout  the  verobs  and  its  subroutines.  This  will 
!help  in  modifying  at  one  point  if  the  requirement  happens  to 
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o  o  o 


{change  in  the  future. 

l  ************************************************************ 

integer  ::  im 
integer  ::jm 

integer  : :  ijmax  !  1  -dim  array  max  size 

integer  ::  maxobs  !  max  num  of  obs 

integer  : :  maxprm  !  max  num  of  parameters  to  verify 

integer  ::  maxstat  !  max  num  of  stats  to  verify 

integer  ::  maxtvl  !  max  num  of  threshhold  values 

integer  : :  maxlvl  !  max  num  of  levels 

integer  ::  size 

real  : :  bad_value  !  value  for  missing  or  bad  data 
real  ::  check_val !  ISIS  missing  value  checking  number 

parameter(im=360) 

parameter(jm=181) 

parameter(ijmax=im*jm) 

parameter(maxobs=50000) 

parameter(maxprm=20) 

parameter(maxstat=  1 0) 

parameter(maxtvl=20) 

parameter(maxlvl=3  0) 

parameter(size=5000) 

parameter(bad_value=  1  .E+10) 

parameter(check_val=l  .E+9) 

! _ 

!  env  var 
! _ 

character(16) ::  crdate_val  !  current  run  dtg  value 
character(8)  ::  tauijval  !  starting  tau  value 
character(8)  ::taue_val  !  ending  tau  value 
character(8)  ::  tauinc_val  !  tau  increment  value 
character(32) ::  modelname  !  model  name  value 
character(32) ::  geomname  !  geometry  name  value 
character(24) ::  pijnnm  !  projection  name 
character(16) ::  vdtg  !  verifying  dtg,  also  for  write 
integer  ::  ngeom  !  C  pointer  for  the  given  geomname 
integer  : :  ncols  !  number  of  columns 

integer  : :  nrows  !  number  of  rows 
integer  : :  itaui  !  integer  beginning  tau 

integer  ::  itaue  !  integer  ending  tau 

integer  ::  itauinc  !  integer  tau  increment 

4*  verobs.f90 

program  verobs 

START  PROLOGUE . 

CSCCS  IDENTIFICATION:  @(#)verobs.f901.1  04/24/98  /h/cm/libraiy/mverif/src/main/verobs 
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c 

C  CONFIGURATION  IDENTIFICATION:  NONE 
C 

C  MODULE  NAME:  verobs 
C 

C  DESCRIPTION:  This  program  verifies  the  model  forecast  fields  against 
C  observations  for  various  models. 

C 

C  COPYRIGHT:  (c)  1 998  FLENUMMETOCCEN 

C  U.S.  GOVERNMENT  DOMAIN 

C  ALL  RIGHTS  RESERVED 

C 

C  CONTRACT  NUMBER  AND  TITLE:  N/A 
C 

C  REFERENCES:  previous  verobs.f 
C 

C  CLASSIFICATION:  Unclassified 
C 

C  RESTRICTIONS:  NONE 
C 

C  COMPUTER/OPERATING  SYSTEM 
C  DEPENDENCIES:  CrayUNICOS 

C 

C  LIBRARIES  OF  RESIDENCE:  /a/ops/bin 
C 

C  USAGE:  Kom  shell  script  mverif.job 
C 

C  PARAMETERS:  N/A 
C 

C  COMMON  BLOCKS:  N/A 
C 

C  FILES: 

C  Name  Unit  Type  Attribute  Usage  Description 

C  . - . 

C  SMODEL-verfil  10  FORMATTED  DIRECT  IN  Contains  parameter,  stat 
C  types  to  compute 

C  SMODEL-sfcverfil  10  FORMATTED  DIRECT  IN  Contains  parameter,  stat 
C  types  to  compute  for  sfc 

C  MODELGEOMDTG  10  FORMATTED  DIRECT  OUT  Contains  the  computed  stats 
C  (e.g.,  NORAPSconus_nestl_appll996010100)  for  each  run 
C 

C  DATABASES: 

C  Name  Table  Usage  Description 

C  . - . 

C  ISIS  Grid  data  Various  IN  Model  Forecasts 

C  ISIS  T.T.T  data  Various  IN  Observed  environmental  data 

C 

C  NON-FILE  INPUT/OUTPUT:  N/A 
C 

C  ERROR  CONDITIONS: 

C  CONDITION  ACTION 

C  . 
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C  no  env  variables  exit  with  code  1 

C  err  in  char  to  integer 

C  conversion  exit  with  code  2 

C  empty  input  arrays  exit  with  code  3 
C  err  opening  output  file  exit  with  code  4 
C  ggrd  error  exit  with  code  5 

C  getgeom  error  exit  with  code  6 

C  boundary  error  exit  with  code  7 

C  no  ISIS  Grid  data  stop  executing 

C  no  ISIS  LLT  data  stop  executing 

C 

C  ADDITIONAL  COMMENTS:  NONE 
C 

C . MAINTENANCE  SECTION . 

C 

C  MODULES  CALLED: 

C  Name  Description 

C  -  - 

C  BOUNDARY  Computes  min/max  lat/lon  for  reading  obs  from  LLT  DB 

C  CH2INT  Converts  character  to  integer 

C  DBST OP  ISIS  software  that  terminates  database 

C  DTGMOD  FNOC  utility  that  increments  a  DTG 
C  EXIT  System  call  that  exits  program 

C  LLTREAD  Reads  obs  from  LLT  DB 
C  PXFGETENV  Gets  environment  variable 

C  GET GEOM  Gets  geometry  arguments  to  be  used  by  other  routines 
C  GGRD  Returns  ISIS  info,  on  given  geometry 

C  GRD  Reads  gridded  fcst  fields  from  ISIS 

C  STRLEN  F ORTRAN  function  that  returns  string  length 
C  F20B  Interpolates  fcst  to  obs  pts 

C  UV2DF  Converts  wind  u/v  to  direction  and  speed 

C 

C  LOCAL  VARIABLES  AND  Structures  are  documented  in  detail 
C  STRUCTURES:  where  they  are  defined  in  the  code 

C  within  include  files. 

C 

C  INCLUDE  FILES: 

C  Name  Description 

C  . . . 

c 

C  COMPILER  DEPENDENCIES:  empef90 
C 

C  COMPILE  OPTIONS:  -f  fixed  -c 
C 

C  MAKEFILE:  Located  at  /a/ops/app/mverifrsrc/main/Makefile 
C  UNICOSmake 
C 

C  RECORD  OF  CHANGES: 

C  «CHANGE  NOTICE»  Version  1 . 1  (29  Apr  1 998)  -  Kyongsuk  Pace 
C  Initial  submission 
C 

C . END  PROLOGUE . 
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c 

implicit  none 
include  'v_data.h' 

C***************************^*****:M************************************* 

c  Local  variables 

!  record  type 
TYPE  ver_data 
character(32) ::  par  am 
character(24) ::  dsetnm 
character(32) ::  obs_param 
character(24) ::  odsetnm 
character(32) ::  unit 
character(24) ::  typlvl 
real  ::  lvl__l 
character(24) ::  obs_type 
END  TYPE  ver_data 

c#*)|e****t**************************************************************** 

!  array  of  records 

c*****J»e****************************************************************** 

TYPE  (ver_data)  verif(maxprm*maxlvl), 

2  sfc_verif(maxprm) 

character(l) ::  cnul  lone  blank  space  var  used  to  initialize 
character(8) ::  seclvl  !  secret  level  returned  from  GRD 
character(lO)::  dtg  110  char  long  crdate_val 
character(16)::  cdtg  Idtgmod  applied  dtg,  i.e.  dtg-0,12,24,  etc. 
character(16)::  tdtg  Itemp  cdtg 

character(16)::  stats(maxstat),  sfc_stats(maxstat)  Istat  types 
character(24)::  stdesc  [storage  description  returned  from  GETGEOM 
character(24)::  lvltype(maxprm),  sfcjvltype(maxpnn) ! level  types 
character(24)::  obstype(maxprm),  sfcjDbstype(maxprm) 
lilt  seq  type  (raob_qc,  sfc_ship,  etc.) 
character(24)::  dsetname(maxprm),  sfcjisetname(maxprm) 
character(24)::  odsetname(maxprm),  sfcjxlsetnaine(maxpnn) 
character(32)::  parm(maxprm),  sfc_parm(maxprm)  Iparameters 
character(32)::  obs_parm(maxprm),  sfc_obs_paim(maxprm) 
character(32)::  units(maxprm),  sfc_units(maxprm) 
character(32)::  geomname2,  outgeomname 
character(60)::  outstats  I  output  filename 
character(40)::  namlist_filel_val,  namlist__file2_val 
character(80)::  title 
character(4) ::  nul__geom 

integer  ::  nstat,  nparm,  nobs,  nobstype,  nlevel 
integer  ::  sfc_nstat,  sfc_nparm,  sfc_nobs,  sfcjiobstype 

integer  ::  arr_size,  sfc_arr_size 

integer  ::  ktau,  ltau,  Istat,  i,  j,  k,  1,  m,  n 
integer  ::  numchar,  istat 
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integer  : :  id,  iseq,  status 


integer  : :  lenMODEL,  lenmodelname 

integer  ::  lenGEOMNM,  lengeomname 

integer  : :  lenGEOMNM2,  lengeomname2 

integer  : :  lenTAUI,  lentaui_val 

integer  : :  lenTAUE,  lentauejval 

integer  : :  lenTAUINC,  lentauinc_val 

integer  : :  lenCRDATE,  lencrdate_val 

integer  : :  lenNAMLIST JFDLE 1 ,  lennamlist  1  _val 

integer  : :  lenNAMLIST_FILE2,  lennamlist2jval 

real  : :  fcst(ijmax),  fcstu(ijmax),  fcstv(ijmax) 

real  : :  fcst2(ijmax),  fcstu2(ijmax),  fcstv2(ijmax) 

real  : :  fu(ijmax),  fV(ijmax),  fdir(maxobs) 

real  ::  oblat(maxobs),  oblon(maxobs),  obval(maxobs) 

real  : :  newlat(maxobs),  newlon(maxobs),  newobs(maxobs) 

real  ::  fob(maxobs) 

real  : :  newfob(maxobs) 

real  : :  newfu(ijmax),  newfv(ijmax) 

real  ::  level(maxlvl),  sfc__level(maxlvl) 

real  : :  origx,  origy,  parml ,  parm2,  parm3,  xintdis, 

2  yintdis,  minlat,  maxlat,  minion,  maxlon 

real  : :  xlvl,  level  2,  paknul 

real  ::  tval,  sfc__tval 

real  : :  bias,  rms,  std,  ancor 

real  ::  ftau  Ifloattau 

double  precision  ::  origlat,  origlon 

c************************************************************************ 
c  Function 

integer  strlen 

c  Data  Initialization 

£j|c  sje  %  sje  %  $  $  ifc  +  $  :Je  sfc  s£  $  $  sf:  +  +  sf:  £  $  +  +  ♦  +  ♦  ♦  ♦  +  %  +  *  +  +  ♦  ♦  ♦  ^  +  ♦  £  ♦  ♦  ♦  £  ^  ♦  ♦  ♦  +  ♦  +  %  ♦  +  £  ♦  sfc  ♦  ♦ + ♦  ♦  £  +  ♦  + 

data  cnul  P  V 
datalstat/10/ 
data  paknul  /lO.elO/ 
data  level_2 10.01 

c  Namelists 

^  +  $  $  $  £  %  $  +  $ + *  +  sfc  +  ijc  $  if:  +  sfc  *  sje a|e  £  *  jjc  +  £  % j)e :}:  sf:  %  sje  $  ifc  $  5jc  afc  3)c  $  ifc  $  *  %  $ $ $  $  $  +  +  afe  %  +  +  +  +  *  Jfc  + $ $ $  $  $  %  jJ: 

namelist  /verlst/  pann,  dsetname,  obs_parm,  odsetname, 

2  units,  lvltype,  obstype,  level,  stats,  tval 

namelist  /sfclst/  sfc_parm,  sfcjisetname,  sfc_obs_parm, 

2  sfc_odsetname,  sfc_units,  sfc_lvltype, 


2  sfc_obstype,  sfcjevel,  sfc_stats,  sfcjval 


c************************************************************************ 
c  initialize  some  var 

c*t**********************************************t***************t******* 

crdate_val(l :  16)  =  cnul 
dtg(l:10)  =  cnul 
cdtg(  1:16)  =  cnul 
seclvl  = 'UNCLASS' 

c**)»C*  +  *******S)C**3(t************  +  ******  +  +  +  **************  +  +  *************S»C**** 

c  Get  the  environment  variables  that  are  set  in  the  job  script, 

c  CRDATE,  TAUS,  TAUE,  TAUINC,  MODEL,  GEOMNM,  DATASET  1 ,  DATASET2, 
c  NAMLIST_FILE1  and  NAMLIST_FILE2. 

c********************************* *************************************** 
namlist_filel_val  =  cnul 
namlist_file2_val  =  cnul 
geomname2  =  cnul 

CALL  PXF GETEN V ('ISIS_T ABLE',  lenMODEL,  modelname,  lenmodelname, 

2  istat) 

if  (istat  .ne.  0)  then 
write  *,  "MODEL  is  unspecified" 

CALLEXIT(l) 
end  if 

CALL  PXFGETENV('GE0MNM1',  lenGEOMNM,  geomname,  lengeomname, 

2  istat) 

if  (istat  /=  0)  then 

write  *,  "GEOMNM  1  is  unspecified" 

CALL  EXIT(l) 
end  if 

CALL  PXFGETENV(’GEOMNM2',  lenGEOMNM2,  geomname2,  lengeomname2, 

2  istat) 

if  (istat  /=  0)  then 

write  *,  "No  second  GEOMNM  is  specified" 
end  if 

CALL  PXFGETENV(’TAUr,  lenTAUI,  taui_val,  lentaui_val,  istat) 
if  (istat  /=  0)  then 
write  *,  "TAUI  is  unspecified" 

CALLEXIT(l) 

endif 

CALL  PXFGETENV('TAUE',  lenTAUE,  taue_val,  lentaue_val,  istat) 
if  (istat  /=  0)  then 
write  *,  "TAUE  is  unspecified" 

CALLEXIT(l) 

endif 

CALL  PXFGETENVfTAUINC’,  lenTAUINC,  tauinc_val,  lentauinc_val. 
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2  istat) 

if  (istat I-  0)  then 
write  *,  "TAUINC  is  unspecified" 

CALLEXIT(l) 

endif 

CALL  PXFGETENVCCRDATE',  lenCRDATE,  crdate_val,  lencrdate_val, 

2  istat) 

if  (istat  /=  0)  then 
write  *,  "CRD ATE  is  unspecified" 

CALLEXIT(l) 

endif 

CALL  PXFGETENVCNAMLIST_FrLEr,  lenNAMLIST JFILE  1 , 

2  namlist_filel_val5  lennamlistl__val,  istat) 

if  (istat  /=  0)  then 

write  *,  "NAMLIST_FILE1  is  unspecified" 
endif 

CALL  PXFGETENVCNAMLIST^F^’,  lenNAMLISTJFILE2, 

2  *  namlist_file2_val,  lennamlist2_val,  status) 

if  (status  /=  0)  then 
write  *,  "no  second  namlist  file." 
endif 

if  (istat  /=  0  .and.  status  /=  0)  then 
write  *,  "cannot  continue  without  the  namlist  files." 

CALLEXIT(l) 

endif 

q************ ********************************************* *************** 

c  get  ISIS  info  on  the  given  geometry  by  calling  GGRD 
c  geom  is  defined  as  a  SMS  env  var 
c  will  add  the  capability  to  add  the  geom  info  in  the  future 
c  when  the  geom  info  is  not  defined  in  ISIS 

Q*******  +  3fC^**  +  **  +  ******  +  ^**^5|C*^****+*S|£^  +  ^*+5jC3|c**5|e*  *********  *************** 

CALL  GGRD(geomname,  ngeom,  istat) 

!if  geom  is  not  defined  then  exit  the  program 
if  (istat  .ne.  0)  then 

write  (0, ’("undefined  geom,  ggrd  returns  istat  ="5i5)')  istat 
CALL  EXIT(5) 
endif 

print  *,  'taui-,  tauijval, '  taue-,  taue_val, 

2  ’  tauinc-,  tauincjval 

print  *,  'model=',  modelname 
print  *,  'geomnm=',  geomname 

£* *********************************************************** ************ 
c  need  to  convert  tau  info  to  integers 

c************************************************************************ 
CALL  CH2INT(taui_val,  itaui,  istat) 
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if  (istat  .ne.  0)  then 

write  (0,'("ch2int  on  TAUI  returns  istat  =",i5)')  istat 
CALL  EXIT(2) 
end  if 

CALL  CH2INT(taue_val,  itaue,  istat) 
if  (istat  .ne.  0)  then 

write  (0,'("ch2int  on  TAUE  returns  istat  =",i5)')  istat 
CALL  EXIT(2) 
end  if 

CALL  CH2INT(tauinc_val,  itauinc,  istat) 
if  (istat  .ne.  0)  then 

write  (0,'(”ch2int  on  TAUINC  returns  istat  =",i5)')  istat 
CALL  EXIT(2) 
end  if 

c************************************************************************ 

c  Initialize  the  arrays 

c*********************** ************ ******* ****************************** 
dom=l,  maxprm 
parm(m)  =  cnul 
dsetname(m)  =  cnul 
odsetname(m)  =  cnul 
units(m)  =  cnul 
lvltype(m)  =  cnul 
sfcjparm(m)  =  cnul 
sfc_dsetname(m)  =  cnul 
sfc_odsetname(m)  =  cnul 
sfc_units(m)  =  cnul 
sfc_lvltype(m)  =  cnul 
obstype(m)  =  cnul 
sfc__obstype(m)  =  cnul 
end  do 

dom=l,maxlvl 
level(m)  =  paknul 
sfc_level(m)  =  paknul 
end  do 

do  n=l,  maxstat 
stats(n)  -  cnul 
sfc_stats(n)  =  cnul 
end  do 

c******************************++***************************+************ 
!Open  and  read  the  NAMLISTJFHE1  into  the  arrays  for  parm, 

!unit,  lvl_type,  level_l ,  and  obs_type 

Idetermine  the  number  of  parameters  and  number  of  levels 
[number  of  stats  and  number  of  obstype 
[determine  the  array  size 
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if  (namlist_filel_val  /=  cnul)  then 
open  (unit=lstat,file=namlist__file  1  jval,form- formatted', 

2  status- old'  ,iostat=istat) 

if  (istat  .eq.  0)  read(lstat,  nml  =  verlst) 

c*********3(:  +  ******3jc******************************************=f:*********** 

c  Finish  setup,  the  arrays,  slype,  tval,  typlvl,  units  are  changed 
c  to  1  -dimension  and  will  not  change  throughout  the  program  so  that 

c  they  can  be  used  for  multiple  parameters  which  is  a  change  from 
c  the  original  program. 

c  Determine  the  number  of  parameters 

nparm  =  0 

do  while  (parm(nparm+l)  .ne.  cnul  .and.  nparm  .It.  maxprm) 
nparm  =  nparm  +  1 
end  do 

if  (nparm  .eq.  0)  then 

write  (0,'("No  verification  parameters  specified")') 
c  CALL  EXIT(3) 
end  if 

qsJc  $  :je + +  $  +  £  +  $  $  5jc  sje  % sft  +  $  +  £  sfc  $  af:  $  afc  a|c  aje  +  +  $  *  $  +  :Jc  +  jfc  $  sf:  a£  a|c  sje  ajc  $  $  +  +  $  $  $  jfc  :Jc  +  $  *  $  jjc  +  +  afc  $ * sfc  $  #  s(e  $  +  $  $ + + $ 

c  Determine  the  number  of  levels 

q*  *  $  *  *  sjc  $  *  $  £  $  *  *  4c  $  $  Jjc  $  +  $  sjc  $  $  *  $  $  sjc  £  a|e  $  *  *  *  $  %  :je  %  %  $  aje  sfc  $  *  $  $  $  *  *  s)c  sfc  afe  *  $  *  £  ajc  %  $  *  $  $  % + *  a|e  $  j|c  afc + afe  % 

nlevel  =  0 

do  while  (level(nlevel+l)  .ne.  paknul  .and.  nlevel  .It.  maxlvl) 
nlevel  =  nlevel  +  1 
end  do 

if  (nlevel  .eq.  0)  then 

write  (0,'("No  verification  levels  specified.")') 
c  CALL  EXIT(3) 
end  if 

Q*  $  £  *  ajc  *  afc  $  afc  aje  aje  aje  aje  +  aje  aje  *  aje  *  aje  aj:  aje  *  %  *  *  *  aje  *  $  $  aje  aje  *  *  aje  afe  aje  *  aje  aje  *  aj:  aje  aje  %  aje  aj:  +  aj:  *  *  aje  aje  aje  aje  aje  *  aje  aje  aje  $  *  aj:  aje  aj:  aje  *  *  %  *  aje 

c  Determine  the  number  of  stats 

£  *  *  $  aj:  aje  *  aje  aje aje $  $  $  aje  *  *  %  aj:  a|e  aj:  *  aj:  aj:  aje  aj:  *  aj: aj: aje  *  aje  aj: aje aje aj: aje  aje  aje  aj:  aje  aj:  +  +  $  $  sje  +  +  +  *  *  +  +  +  +  +  +  $  $  *  $  *  $  *  $  sfc  *  $  *  4c  $  * 

nstat  =  0 

do  while  (stats(nstat+l)  .ne.  cnul  .and. 

2  nstat  .It.  maxstat) 

nstat  =  nstat  +  1 
end  do 

if  (nstat  .eq.  0)  then 

write  (0,'("No  statistics  are  requested.")') 
c  CALL  EXIT(3) 
end  if 

end  if  !namlist_filel  exists 
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c*t*************************** ***************** ************************** 

c  if  NAMLIST_FILE2  exists,  read  it  and  put  into  the  arrays  for 

c  the  surface 

c************** ********** ************************************************ 
if  (namlist_file2_val  /=  cnul)  then 
open  (unit=lstat,  file=namlist_file2_val, 

2  form-formatted',  status-old’,  iostat=istat) 

if  (istat  .eq.  0)  then 
read(lstat,  nml  =  sfclst) 
sfc_nparm  =  0 

do  while  (sfc_parm(sfc_nparm+l)  .ne.  cnul  .and. 

2  sfcjiparm  .It.  maxprm) 

sfcjiparm  =  sfcjiparm  +  1 
end  do 
sfcjistat  =  0 

do  while  (sfc_stats(sfc  jistat+1 )  .ne.  cnul  .and. 

2  sfc_nstat  .It.  maxstat) 

sfcjistat  =  sfc  jistat  +  1 
end  do 

if  (sfcjistat  .eq.  0)  then 
write  (0,'("No  statistics  are  requested  in  sfc.")') 

c  CALLEXIT(3) 

end  if 

end  if  !if  namlist_file2  was  read  successfully 
end  if  !if  namlist_file2  exists 

£*******************************5^  ******* ******************************** 

c  array  size  based  on  the  namlists 

c************************************************************************ 
arr_size  =  npaim*nlevel 
sfc_arr_size  =  sfc_nparm 

c************* #****+***************************************************** 
IFill  the  arrays  of  records  from  the  parm,  unit,  lvl  Jype, 

!level_l  and  obsjype  arrays 

c************************************************************************ 

1=1 

if  (arr_size  .gt.  0)  then 
do  i  =  1 ,  nparm 
doj  =  l,nlevel 
verif(l)%param  =  parm(i) 
verifG)%dsetnm  =  dsetname(i) 
verif(l)%obs_param  =  obs_parm(i) 
verif(l)%odsetnm  =  odsetname(i) 
verif(l)%unit  =  units(i) 
verif(l)%typlvl  =  Ivltype(i) 
verif(l)%lvl_l  =  level  (j) 
verif(l)%obs_type  =  obstype(i) 

1  =  1+1 
end  do 
end  do 
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end  if 


!  add  the  sfc  stuff  to  the  verif  array 

c******+**+***+********************************************************** 
if  (sfc_arr_size  .gt.  0)  then 
arr_size  =  arr_size  +  sfc_arr__size 
do  i  =  1,  sfcjnpann 
verif(l)%param  =  sfcjparm(i) 
verif(l)%dsetnm  =  sfc_dsetname(i) 
verif(l)%obs_param  -  sfc_obs_parm(i) 
verif(l)%odsetnm  =  sfcj)dsetname(i) 
verif(l)%unit  =  sfc_units(i) 
verif(l)%typlvl  =  sfcjvltype(i) 
verif(l)%lvl_l  =  sfc_level(i) 
verifQ)%obs_type  =  sfc_obstype(i) 

1  =  1+1 
end  do 
end  if 

^*****4:*jJt**********************************************************5 ***** 

!get  geom  info 

CALL  GETGEOM(ngeom,  pijnnm,  stdesc,  ncols,  nrows, 

2  origlat,  origlon,  origx,  origy,  xintdis, 

3  yintdis,  parml,  parm2,  parm3,  istat) 

if  (istat  .ne.  0)  then 

write  (O/C'getgeom  returns  istat  =M,i5)’)  istat 
CALL  EXIT(6) 
end  if 

c  Determine  min/max  lat/lon  to  use  in  obs  read 

CALL  BOUND  ARY(n  geom,  nrows,  ncols,  minlat, 

2  maxlat,  minion,  maxlon,  istat) 

if  (istat  .ne.  0)  then 

write  (0,  '("cannot  find  min/max  lat/lon")') 

CALLDBSTOP 
CALLEXIT(7) 
end  if 

c  The  output  file,  use  modelname,  geomname  and  crdate_val 

1  =  strlen(modelname) 
outstats(l  :1)  =  modelname(l  :1) 
if  (geomname2  =  cnul)  then 
numchar  =  strlen(geomname) 
k  =  1  +  numchar 
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outstats(l+l  :k)  =  geomname(l  :numchar) 
else 

numchar  =  strlen(geomname2) 
k  =  1  +  numchar 

outstats(l+l  :k)  =  geomname2(l  :numchar) 
end  if 


outstats(k+l  :k+10)  =  crdate_val 
write  (0,'C'output  file  name  = M,  a50)') 

2  outstats(l  :strlen(outstats)) 

open(unit=lstat,file=outstats(  1  ;strlen(outstats)), 
2  form='formatted'5status=,new,,iostat=istat) 

if  (istat  .ne.  0)  then 
write  (0,’(”istat  =  ”,  i5)’)  istat 
write  (0,'(nCannot  open  output  file  for  stats")’) 
CALL  EXIT(4) 
end  if 


c*********  *************************************************************** 
c  Write  the  header  in  the  output  file 

£***********  ************************************************************* 
write  (Istat, '("  vdtg  ", "  numobs  ", 

2  "  param  ", "  unit  ", 

3  "  geometry  ", 

4  "  level  type  ", "  level  1", 

5  "  tau ", "  stat  type  ", "  stat  val  ", 

6  "  v_src ", "  obs_type ")') 

c  for  each  parameter  and  level,  read  obs  from  LLT  DB 
dtg(  1:10)  =  crdate_val(  1:10) 


do  i=l,  arr_size 

write  (0,'(Mparm  =  ”,a32)’)  verif(i)%param 
write  (05'("unit  =  ”,al0)’)  verif(i)%unit 
write  (0,’C’type  lvl  =  M,al0)’)  verif(i)%typlvl 
write  (0,’(”lvl  1  =  ”,f8.1)’)  verif(i)%lvlj 
write  (O/C'obs  type  =  ”,a!5)’)  verif(i)%obs_type 


2 

3 
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CALL  LLTREAD(verif(i)%obs__type3  verif(i)%obs_param, 
verif(i)%lvM ,  verif(i)%odsetnm, 
dtg,  minlat, 

maxi  at,  minion, 

maxlon,  verif(i)%typlvl, 
oblat,  oblon, 

nobs,  obval, 

istat) 


write  (0,'(”nobs  =  ",i6)’)  nobs 
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if  (istat  /=  0  .or.  nobs  =  0)  then 
goto  100 
end  if 

c************************************************************************ 
c  for  each  tau  read  the  fcst,  interpolate  the  fcst  to  obs 
c  compute  the  stats  and  output  the  stats. 

c************************************************************************ 
do  ltau  =  itaui,  itaue,  itauinc 

!  determine  the  correct  dtg  table  to  read 
CALL  DTGMOD(dtg,  -ltau,  cdtg,  istat) 
if  (istat  /=  0)  then 
go  to  200 
end  if 

c************************************************************************ 
c  ISIS  has  tables  for  00  and  1 2  only,  therefore  if  we  need 
c  to  read  other  tau  model  forecasts,  e.g.,  3,6, 9, 15, 18,21 
c  etc. ,  we  need  to  read  1 2  hour  old  table 
c  if  cdtg  ends  with  anything  other  than  00  or  1 2  then 
c  use  - 1 2  ISIS  table  dtg 

c************************************************************************ 
if  (cdtg(9:10)  /=  W  .and.  cdtg(9:10)  /=  ’12’)  then 
CALLDTGMOD(tdtg,  -12,  cdtg,  istat) 
if  (istat  /=  0)  then 

write  *,  ’DTGMOD  error  for  tau ',  ltau 
go  to  200 
end  if 
else 

tdtg  =  cdtg 
end  if 

write  (0/("ISIS  table  dtg  =",al0)’)  cdtg 
write  (0,’("tau  =",i5)')  ltau 
ftau  =  ltau 

£***************♦******************************************************** 
c  if  eveiything  is  OK,  then  read  the  forecast 

c  (gridded  data)  by  calling  ISIS  GRD 
c  ISIS  grid  does  not  have  wnd_spd,  therefore  have  to 
c  read  wnd_ucmp,  wndjvcmp  then  compute  wnd_spd 
c************************************************************************ 
if  (verif(i)%param  =  'wnd_spd')  then 


c  read  forecast  for  wnd_ucmp:  ISIS  grid  data 


CALL  GRD(modelname,  geomname, 

2  verif(i)%dsetnm,  'wnd_ucmp’, 

3  verif(i)%typlvl,  verif(i)%lvl_l , 

4  level_2,  cdtg, 

5  ftau,  verif(i)%unit. 


95 


6 
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fcstu,  tide, 

seclvl,  id, 

iseq,  status) 

if  (status  /=  0)  then 
go  to  200 


c: 

c 

c: 
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read  forecast  for  wnd_vcmp:  ISIS  grid  data 


CALL  GRD(modelname,  geomname, 
verif(i)%dsetnm,  'wndjvcmp', 
verif(i)%typlvl,  verif(i)%lvl_l, 


level__2, 
fiau, 
fcstv, 
seclvl, 
iseq, 

if  (status  /=  0)  then 
go  to  200 
end  if 


cdtg, 

verif(i)%unit, 

title, 

id, 

status) 


c~ - = ===== — r~~ .  . = -  - - . 

c  first  interpolate  into  another  geometry  if  the  second 

c  geometry  is  requested 

c . = . =  - . - — - — : . . — ==  - - 

if  (geomname2  /=  cnul  .and.  geomname2  /=  geomname)  then 
CALL  INTGEOM(geomname,  geomname2,  ijmax,  fcstu, 

2  fcstu2,  istat) 

if  (istat  =  0)  fcstu  =  fcstu2 

CALL  INTGEOM(geomname,  geomname2,  ijmax,  fcstv, 

2  fcstv2,  istat) 

if  (istat  —  0)  fcstv  =  fcstv2 
CALL  GGRD(geomname2,  ngeom,  istat) 
end  if 


C . = . . = - ===== . . - - — - - =  =  ~  ~~ 

c  interpolate  forecast  into  obs  points,  then 

c  convert  wnd_ucmp  and  wnd_vcmp  to  wnd_spd  by  calling 

c  uv2df 

c . ===== . == . = . ==  - -  - -  = . . . . . . . 

CALL  F20B(ngeom,  fcstu,  oblat,  oblon,  nobs,  fu,  istat) 

CALL  F20B(ngeom,  fcstv,  oblat,  oblon,  nobs,  fv,  istat) 

c**+*t********************************************t*******************+** 

c  if  fcst  had  any  missing  value,  f2ob  fills  fob  with 

c  -999  which  needs  to  be  disregarded  in  the  conversion 

c***********************t******************** **************************** 

k  =  0 

doj=l,nobs 

if  (fu(j)  /=  -999  .and.  fv(j)  /=  999)  then 
k  =  k+  1 
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newfo(k)  =  fu(j) 
newfv(k)  =  fv(j) 
end  if 
end  do 

CALL  UV2DF(newfu,  newfv,  nobs,  fdir,  fob) 

c  If  the  parameter  is  other  than  winds, 
c  call  GRD  only  once 

else 


c: 

c 

c: 
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read  forecast:  ISIS  grid  data 


CALL  GRD(modelname,  geomname, 
verif(i)%dsetnm,  verif(i)%param, 
verif(i)%typlvl,  verif(i)%lvl_l, 
level_2,  cdtg, 
ftau,  verif(i)°/ounit, 

fcst,  title, 
seclvl,  id, 
iseq,  status) 


if  (status  /-  0)  then 
go  to  200 
end  if 


C - — . ---=====—====—========= -  --  ■■ . -•- 

c  first  interpolate  into  another  geometry  if  the  second 

c  geometry  is  requested 

c  .  ;  •  - - —  ! - -  •  r,'"~ . 1  . = 

if  (geomname2  /=  cnul  .and.  geomname2  /=  geomname)  then 
CALL  INTGEOM(geomname,  geomname2,  ijmax,  fcst, 

2  fcst2,  istat) 

if  (istat  =  0)  fcst  =  fcst2 
CALL  GGRD(geomname2,  ngeom,  istat) 
end  if 

!  interpolate  fcst  into  obs  pts 

Q********* *************************************************************** 

CALL  F20B(ngeom,  fcst,  oblat,  oblon,  nobs,  fob,  istat) 
if  (istat  /=  0)  then 
go  to  200 
end  if 

end  if  Iparam  test 

c  if  fcst  had  any  missing  value,  f2ob  fills  fob  with 
c  -999  which  needs  to  be  disregarded  in  the  stat  computations 
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c***:********************************************************************* 
k  =  0 

doj=l,nobs 
if  (fob(j)  /=  -999)  then 
k  =  k+  1 

newfob(k)  =  fob(j) 
newlat(k)  =  oblat(j) 
newlon(k)  =  oblon(j) 
newobs(k)  =  obval(j) 
end  if 
end  do 

write  (0,’("writing  the  1  st  1 5  lat,lon,obs,fcst.")') 
write  (0,’(i5,4fl0.2)’)  (n,newlat(n),newlon(n),newobs(n) 

2  ,newfob(n),  n=  1 , 1 5) 

c************************************************************************ 
Icompute  the  stats 
!for  obs,  disregard  the  projection 

c************************************************************************ 
nul_geom  =  'NONE' 

c********************************************* ************* ************** 
c  if  there  was  no  NAMLIST_FILE  1 ,  then  use  the  stats 
c  from  NAMLIST_FILE2.  For  ocean  models 
c********************************** ********************** **************** 
if  (nstat  =  0)  then 
nstat  =  sfc_nstat 
do  j  =  1,  nstat 
stats(j)  =  sfc_stats(j) 
end  do 
end  if 

if  (geomname2  /=  cnul)  then 
outgeomname  =  geomname2 
else 

outgeomname  =  geomname 
end  if 

do  j  =  1,  nstat 

if  (stats(j)  =  ’bias'  .and.  k  /=  0)  then 
CALL  COMPUTE_BIAS(newfob,newobs,k,nul_geom,bias) 

!  write  the  stats  to  the  output  file 
write  (lstat,  1000)  dtg,  k,  verif(i)%param, 

2  verif(i)°/ounit, 

3  outgeomname,  verif(i)%typlvl, 

4  verif(i)%l vl_  1 ,  ltau, 

5  stats(j),  bias, 

6  verif(i)%obs__type 

write  (0,’(a30,  2al5,fl0.2)')  verif(i)%obs_type, 

2  verif(i)%param,  stats(j),  bias 
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else  if  (stats®  —  'std'  .and.  k  /=  0)  then 
CALL  COMPUTE_STD(newfob,  newobs,  k,  nul_geom,  std) 
write  (lstat,  1000)  dtg,  k,  verif(i)%param, 

2  verif(i)%unit, 

3  outgeomname,  verif(i)°/otyplvl, 

4  verif(i)%lvl_l ,  ltau, 

5  stats®,  std, 

6  verif(i)%obs_type 

write  (0,'(a30, 2al5/10.2)')  verif(i)%obsJype, 

2  verif(i)%param,  stats(j),  std 

else  if  (stats®  =  'rms'  .and.  k  /=  0)  then 
CALL  COMPUTE_RMS(newfob,  newobs,  k,  nul_geom,  rms) 
write  (lstat,  1000)  dtg,  k,  verif(i)%param, 

2  verif(i)%unit, 

3  outgeomname,  verif(i)%typlvl, 

4  verif(i)%lvl__l ,  ltau, 

5  stats®,  rms, 

6  verif(i)%obs_type 

write  (0,’(a30, 2al5,fl0.2)t)  verif(i)%obs_type, 

2  verif(i)%param,  stats(j),  rms 


c  else  if  (stats®  =  ’ancor’  .and.  k  /=  0)  then 

c  CALL  COMPUTE_RMS(newfobynewobs,k,nul_geom,ancor) 

c  write  (lstat,  1000)  dtg,  k,  verif(i)°/oparam, 

c  2  verif(i)%unit, 

c  3  outgeomname,  verif(i)%typlvl, 

c  4  verif(i)%lvl_l,  ltau, 

c  5  stats®,  ancor, 

c  6  verif(i)%obs_type 

c  write  (0,’(a30, 2al  5,fl0.2)')  verif(i)%obs_type, 

c  2  verif(i)%param,  stats®,  ancor 


! other  stat  types ... 
end  if 

end  do  !doj-l,nstat 
200  continue 
end  do  !ltau  loop 
100  continue 
end  do  !  i=l,arr_size  loop 


1000  format  (al0,i6,lx,2al5,a30,al5jE8.2,i5,lx,al2^8.2,'  obs’,lx,al5) 
close(lstat) 

CALL  DBSTOP 
stop  'Normal  End' 

CALL  EXIT(0) 
end 


5.  boundary.f90 

subroutine  boundary(ngeom,  nrows,  ncols,  minlat, 
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2  maxlat,  minion,  maxlon,  istat) 

C 

C . START  PROLOGUE . 

C 


C  sees  IDENTIFICATION:  @(#)boundary.f90  1.1  04/24/98 /h/cm/libraiy/mveriRsrc/sub/boundaiy.f90_v 
C 

C  CONFIGURATION  IDENTIFICATION:  NONE 
C 

C  MODULE  NAME:  boundary 
C 

C  DESCRIPTION:  This  subroutine  computes  the  minimum  and  maximum 
C  latitude  and  longitude  for  reading  observations 

C  from  ISIS  LLT  database. 

C 

C  COPYRIGHT:  (c)  1996  FLENUMMETOCCEN 

C  U.  S.  GOVERNMENT  DOMAIN 

C  ALL  RIGHTS  RESERVED 

C 

C  CONTRACT  NUMBER  AND  TITLE:  N/A 
C 

C  REFERENCES:  NONE 
C 

C  CLASSIFICATION:  Unclassified 
C 

C  RESTRICTIONS:  NONE 
C 

C  COMPUTER/OPERATING  SYSTEM 
C  DEPENDENCIES:  CrayUNICOS 

C 

C  LIBRARIES  OF  RESIDENCE:  /a/ops/bin 
C 

C  USAGE: 

C  call  boundary(igeom,  nrows,  ncols,  minlat, 

C  maxlat,  minion,  maxlon,  istat) 

C 

C  PARAMETERS: 


c 

p 

Name 

Type  Usage  Description 

c 

NGEOM 

INTEGER 

INPUT 

Geometry  info. 

c 

NROWS 

INTEGER 

INPUT 

No.  of  rows 

c 

NCOLS 

INTEGER 

INPUT 

No.  of  columns 

c 

MINLAT 

REAL 

OUTPUT 

Minimum  latitude 

c 

MAXLAT 

REAL 

OUTPUT 

Maximum  latitude 

c 

MINLON 

REAL 

OUTPUT 

Minimum  longitude 

c 

MAXLON 

REAL 

OUTPUT 

Maximum  longitude 

c 

ISTAT 

INTEGER 

OUTPUT 

Return  status 

C  COMMON  BLOCKS:  N/A 

C  FILES:  N/A 

C  DATA  BASES:  N/A 
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oooooooooooooooooonooooooooooooooopoooooooooo 


NON-FILE  INPUT/OUTPUT:  N/A 

ERROR  CONDITIONS: 

CONDITION  ACTION 


Error  return  from  VXYLL  Print  err  message 

ADDITIONAL  COMMENTS:  NONE 

. MAINTENANCE  SECTION . 

MODULES  CALLED: 

Name  Description 


MAXVAL  Returns  maximum  value  from  an  array 
MINVAL  Returns  minimum  value  from  an  array 
VXYLL  Computes  arrays  of  lat/lon  from  arrays  of  xfy 

LOCAL  VARIABLES  AND  Structures  are  documented  in  detail 
STRUCTURES:  where  they  are  defined  in  the  code 

within  include  files. 

METHOD:  1 .  Fill  in  the  working  arrays,  x  &  y,  with  values  for  left, 
right,  bottom  &  top  boundaries. 

2.  Call  vxyll  to  get  lat/lon  from  x  &  y. 

3.  Find  the  minimum  &  maximum  latitude  &  longitude. 

INCLUDE  FILES:  NONE 
COMPILER  DEPENDENCIES:  f90 
COMPILE  OPTIONS:  -f  fixed -c 

MAKEFILE:  Located  at  /a/ops/app/mverif/src/sub/makeverobslib 
UNICOS  make 

RECORD  OF  CHANGES: 

«CHANGE  NOTICE»  Version  1.1  (29  Apr  1998)  -  Kyongsuk  Pace 
Initial  submission 

Origimal  Programmer:  MA.  Rennick 
. END  PROLOGUE . 


implicit  none 

***************************************************************** 

parameters 

***************************************************************** 

integer,  intent(in)  ::ngeom  !  geometry 
integer,  intent(in)  ::nrows  !  no  of  rows 
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integer,  intent(in)  ::  ncols  !  no  of  columns 
real,  intent(out) ::  minlat !  min  lat 
real,  intent(out) ::  maxlat !  max  lat 
real,  intent(out) ::  minion  !  min  Ion 
real,  intent(out) ::  maxi  on  !  max  Ion 
integer,  intent(out) ::  istat  !  return  status 

***************************************************************** 
local  variables 

***************************************************************** 
integer  ::  len  !  array  size 

integer  ::  i  !  dummy  loop  var 

integer  ::  n  !  temp  var  to  hold  array  value 

real  : :  x(2*nrows  +  2*ncols)  !  working  array  1  st  dimension 
real  ::  y(2*nrows  +  2*ncols)  !  working  array  2nd  dimension 
real  ::  lat(2*nrows  +  2*ncols) !  latitude  array 
real  ::  lon(2*nrows  +  2*ncols) !  longitude  array 

***************************************************************** 
for  left  boundary 

***************************************************************** 
do  i=l,nrows 

x(i)  =1  !  all  x  value  at  the  left  boundary  is  1 
y(i)  =  i !  y  value  at  the  left  boundaiy 
end  do 

***************************************************************** 
for  right  boundaiy 

***************************************************************** 
n  =  0  !  initialize  the  temp  var 
do  i=nrows+l,  2*nrows 
x(i)  =  ncols  !  all  x  value  at  the  right  boundaiy 
n  =  n  +  1 

y(i)  =  n  !  y  value  at  the  right  boundary 
end  do 

***************************************************************** 
for  bottom  boundary 

***************************************************************** 
n  =  0  !  initialize  the  temp  var 
do  i=2*nrows+l ,  2*nrows+ncols 
n  =  n+  1 

x(i)  =  n  !  all  x  value  at  the  bottom  boundaiy 
y(i)  =1  !  y  value  at  the  bottom  boundary 

end  do 

***************************************************************** 
for  top  boundary 

***************************************************************** 
n  -  0  !  initialize  the  temp  var 
do  i=2*nrows+ncols+l,  2*nrows+2*ncols 
n  =  n+  1 
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onooonoooooooooonoooo 


x(i)  =  n  !  all  x  value  at  the  bottom  boundary 
y(i)  =  nrows  !  y  value  at  the  bottom  boundary 
end  do 

'  call  vxyll  to  get  the  lat/lon  from  x/y 

***********************************************%*********%%*%**%% 
len  =  2*nrows  +  2*ncols 
call  vxyll(ngeom,  len,  x,  y,  ’d’,  lat.  Ion,  istat) 

if  (istat  .eq.  0)  then 

***************************************************************%* 
get  the  min/max  lat/lon 

***************************************************************** 
minlat  =  minval(lat) 
maxlat  =  maxval(lat) 
minion  =  minval(lon) 
maxlon  =  maxval(lon) 

else 

write  (*,’("vxyll  returns  istat  =",i5)’)  istat 
end  if 

return 

end  subroutine  boundary 

6.  f2ob.f90 

subroutine  f2ob(igeom,field,obslat,obslon,nobs,fob,istat) 

. START  PROLOGUE . 

SCCS  IDENTIFICATION:  @(#)f2ob.f90  1.1  04/24/98 /h/cm/library/mverif/src/sub/f2ob.f90_v 
CONFIGURATION  IDENTIFICATION:  NONE 
MODULE  NAME:  f2ob 

DESCRIPTION:  This  subroutine  interpolates  forecast  field  values  to 
observation  locations. 

COPYRIGHT:  (c)  1 998  FLENUMMETOCCEN 

U.S.  GOVERNMENT  DOMAIN 
ALL  RIGHTS  RESERVED 

CONTRACT  NUMBER  AND  TITLE:  N/A 

REFERENCES:  NONE 

CLASSIFICATION:  Unclassified 
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c 

C  RESTRICTIONS:  NONE 
C 

C  COMPUTER/OPERATING  SYSTEM 
C  DEPENDENCIES:  CrayUNICOS 

C 

C  LIBRARIES  OF  RESIDENCE:  /a/ops/bin 
C 

C  USAGE: 

C  call  f2ob(igeom,field>obslat,obslon>nobs,fob,istat) 

C 

C  PARAMETERS: 

C  Name  Type  Usage  Description 

C  . 

C  IGEOM  INTEGER  INPUT  Geometry  info. 

C  FIELD  REAL  INPUT  Forecast  array  to  interpolate 
C  OBSLAT  REAL  INPUT  Obs.  latitude 

C  OBSLON  REAL  INPUT  Obs.  longitude 

C  NOBS  INTEGER  INPUT  No.  of  observations 

C  FOB  REAL  OUTPUT  Fcst  interpolated  to  obs  array 

C  1ST  AT  '  INTEGER  OUTPUT  Return  status 

C 

C  COMMON  BLOCKS :  N/A 
C 

C  FILES:  N/A 
C 

C  DATABASES:  N/A 
C 

C  NON-FILE  INPUT/OUTPUT:  N/A 
C 

C  ERROR  CONDITIONS: 

C  CONDITION  ACTION 

C  . 

C  Unsuccessful  getgeom  Print  err  message  and  exit 

C 

C  ADDITIONAL  COMMENTS:  NONE 
C 


c . MAINTENANCE  SECTION . 

C 

C  MODULES  CALLED: 

C  Name  Description 

C  . 

C  EXIT  System  call  that  exits  program 
C  FINTRP  FORTRAN  sub.  that  interpolates  within  a  field  to 
C  obtain  values  at  an  array  of  points 

C  GETGEOM  Gets  geometry  arguments  to  be  used  by  other  routines 
C  IMAXCV  FORTRAN  function  to  determine  max.  1st  dimension 
C  of  array 

C  JMAXCV  FORTRAN  function  to  determine  max.  2nd  dimension 

C  of  array 

C  VLLXY  Computes  arrays  of  x/y  from  arrays  of  lat/lon 

C 
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C  LOCAL  VARIABLES  AND  Structures  are  documented  in  detail 
C  STRUCTURES:  where  they  are  defined  in  the  code 

C  within  include  files. 

C 

C  METHOD:  1 .  Call  getgeom. 

C  2.  If  successful  getgeom,  determine  max.  1st  &  2nd  dimensions 
C  of  the  array  using  imaxcv/jmaxcv. 

C  3 .  Call  vllxy  to  convert  from  lat/lon  to  ij. 

C  4.  Call  fmtrp  to  interpolate. 

C 

C  INCLUDE  FILES: 

C  Name  Description 

C  - - - 

C  V_DATA.H  contains  the  common  variables  for  verobs 
C 

C  COMPILER  DEPENDENCIES:  ©0 
C 

C  COMPILE  OPTIONS:  -f  fixed -c 
C 

C  MAKEFILE:  Located  at  /a/ops/app/mverif/src/sub/makeverobslib 
C  UNICOSmake 

C 

C  RECORD  OF  CHANGES: 

C 

C  «CHANGE  NOTICE»  Version  1 . 1  (29  Apr  1 998)  -  Kyongsuk  Pace 
C  Initial  submission 
C  Original  Programmer:  MA  Rennick 
C 

C . END  PROLOGUE . 

C 

implicit  none 
include  'v_data.h' 

}  *+*sJe***sJ:******3|es|:*jf:**3jc*******)*:********4:5»:****3(:t  ********************  +  ******* 

!  Formal  parameters 

I************************************************************************* 

integer,  intent(in) ::  igeom  !  geom  ptr  from  ggrd 
integer,  intent(in) ::  nobs  !  number  of  obs  to  interpolate 
real,  intent(in)  ::  field(ijmax)  !  array  to  interpolate 
real,  intent(in)  ::  obslat(maxobs) !  lat  of  report 
real,  intent(in)  ::  obslon(maxobs)  !  Ion  of  report 
real,  intent(out)  ::  fob(maxobs)  !  interpolated  array 
integer,  intent(out) ::  istat  !  status 

!  Local  variables 

integer  ::imx,jmx 
character(8)  ::  dsc 
real  ::  dcol 

real  ::  drow 

real  ::fx(maxobs) 
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real  ::fy(maxobs) 

real  ::  origi 

real  ::  origj 

real  ::  paiml,  parm2,  parm3 

double  precision  ::  olat 
double  precision  ::  olon 

*********************************  ***********  ***************************** 
Functions 

************************************************************************* 
integer  imaxcv,  jmaxcv 

CALL  GETGEOM(igeom,  pijnnm,  dsc,  ncols,  nrows,  olat,  olon, 

2  origi,  origj,  dcol,  drow,  parml,  parm2,  parm3,  istat) 

if  (ncols*nrows  .gt.  ijmax)  istat  =  2 

************************************************************************* 
if  successful  getgeom,  obtain  max  1st  and  2nd  dimension  of  the  array 
and  convert  from  lat/lon  to  i,j  and  interpolate 

************************************************************************* 
if  (istat  .eq.  0)  then 

imx  =  imaxcv(ncols,  nrows,  dsc) 
jmx  =  jmaxcv(ncols,  nrows,  dsc) 

CALL  VLLX Y (igeom, nobs, obslat,obslon,'d’,fx,fy , istat) 
if  (istat  .eq.  0)  then 

CALL  FINTRP(fx,fy,nobs,field,  imx,  imx, jmx,  0,0.,  0.,0.,  fob) 

CALL  FINTRP(fx,fy ,  nobs,  field,  imx,  imx,jmx,l, 

2  bad_value,  -999.,  -999.,  fob) 

else 

write  (*,'(Mvllxy  returns  istat  =M,i5)')  istat 
end  if 

************************************************************************* 
if  unsuccessful  getgeom,  print  the  error  msg 

************************************************************************* 

else 

write  (*, '("getgeom  returns:" 

2  r  pijnam  =  ",a 

3  r  dsc  => 

4  r  ncols  =  ",i5 

5  r  nrows  =",i5 

6  r  olat  =  ",f8.2 

7  r  olon  =  ",fB.2 

8  r  origi  =  "48.2 

9  r  origj  ="48.2 

a  r  dcol  ="48.2 

b  r  drow  =  ",f8.2 

c  /"  parml  =  ",f8.2 
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oooononoonooooooooooooooooooopn 


d  /"  parm2  =  ",f8.2 

e  /"  parm3  =  ",f8.2 

f  /"  istat  =  ",i5)')  pijnnm>dsc,ncols!nrows,olat 

g  ,olon,origi,origj,dcol,drow,parml  ,parm2,parm3,istat 

if  (istat  .eq.  2)  then 

write  (*, '("ERROR:  CuiTent  geometry  requires  array " 

2  "length  ge",ilO,";  ijmax  =",ilO)')  ncols*nrows,ijmax 

CALL  EXIT  (1) 
end  if 

end  if  !  (if  istat  —  0) 
return 

end  subroutine  f2ob 

7.  intgeom.f90 

subroutine  intgeom(geomnamel,  geomname2,  arr_size, 

2  fieldl,  field2,  istat) 

. START PROLOGUE . 

SCCS  IDENTIFICATION:  @(#)intgeom.f90  1.1  04/24/98  /h/cm/library/mverif/src/sub/intgeom.f90_v 
CONFIGURATION  IDENTIFICATION:  NONE 
MODULE  NAME:  intgeom 

DESCRIPTION:  Interpolates  one  geometry  to  another  geometry  for 
spherical  projection. 

COPYRIGHT:  (c)  1998  FLENUMMETOCCEN 

U.S.  GOVERNMENT  DOMAIN 
ALL  RIGHTS  RESERVED 

CONTRACT  NUMBER  AND  TITLE:  N/A 

REFERENCES:  NONE 

CLASSIFICATION:  Unclassified 

RESTRICTIONS:  NONE 

COMPUTER/OPERATING  SYSTEM 

DEPENDENCIES:  CrayUNICOS 

LIBRARIES  OF  RESIDENCE:  /a/ops/bin 

USAGE: 

call  intgeom(geomnamel,  geomname2,arr_size,  fieldl,  field2,  istat) 
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c 

C  PARAMETERS: 

C  Name  Type  Usage  Description 

C  . 

C  GEOMNAME1  CHAR*32  INPUT  GEOMETRY  TO  INTERPOLATE  FROM 

C  GEOMNAME2  CHAR*32  INPUT  GEOMETRY  TO  INTERPOLATE  TO 

C  ARR_SIZE  INTEGER  INPUT  ARRAY_SIZE 
C  FIELD  1  REAL(ijmax)  INPUT  ARRAY  TO  INTERPOLATE  FROM 

C  FEELD2  REAL(ijmax)  OUTPUT  INTERPOLATED  ARRAY 

C  ISTAT  INTEGER  OUTPUT  STATUS 

C 

C  COMMON  BLOCKS:  N/A 
C 

C  FILES:  NONE 
C 

C  DATABASES:  $META_GRID_DB 
C  Name  Table  Usage  Description 
C  . - . . 

c 

C  NON-FILE  INPUT/OUTPUT:  NONE 
C 

C  ERROR  CONDITIONS: 

C  CONDITION  ACTION 

C  . 

C  Error  return  from  GGRD  Print  err  message  &  exit 
C  Error  return  from  GETGEOM  Print  err  message  &  exit 
C  Error  return  from  VXYLL  Print  err  message  &  exit 
C  Error  return  from  CHGEOM  Print  err  message  &  exit 
C 

C  ADDITIONAL  COMMENTS:  NONE 
C 

C . MAINTENANCE  SECTION . 

C 

C  MODULES  CALLED: 

C  Name  Description 

C 

C  CHGEOM  CHANGES  THE  GEOMETRY 
C  EXIT  System  call  that  exits  program 

C  GETGEOM  Gets  geometry  arguments  to  be  used  by  other  routines 
C  GGRD  Returns  ISIS  info,  on  given  geometry 
C  IMAXCV  Selects  the  first  dimension  of  a  field 

C  JMAXC  V  Selects  the  second  dimension  of  a  field 

C  VXYLL  Converts  i/j  to  lat/lon 

C 

C  LOCAL  VARIABLES  AND 
C  STRUCTURES: 

C 

C  Name  Type  Description 

C  . -- 

C  CNCOLS  INTEGER  column  count  (getgeom,  geomnamel) 

C  CNROWS  INTEGER  row  count  (getgeom,  geomnamel) 

C  CORIGLAT  DOUBLE  latitude  of  origin  (getgeom. 
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c 

C  CORIGLON  DOUBLE  longtitude  of  origin  (getgeom,  geomnamel) 

C  CORIGX  REAL  x  coordinate  of  origin  (getgeom,geomnamel) 

C  CORIGY  REAL  y  coordinate  of  origin  (getgeom,geomnamel) 

C  CPARM1  REAL  geometry  parameter  #1  (getgeom,geomnamel) 

C  CPARM2  REAL  geometry  parameter  #2  (getgeom,geomnamel) 

C  CPARM3  REAL  geometry  parameter  #3  (getgeom,geomnamel) 

C  CPRJNAM  CHAR*24  projection  name  (getgeom,  geomnamel) 

C  CSTDESC  CHAR*24  storage  description  (getgeom,geomnamel) 

C  CXINTDIS  REAL  interval  distance  between  columns  (getgeom,geomnamel) 

C  CYINTDIS  REAL  interval  distance  between  rows  (getgeom, geomnamel) 

C  FILVAL  REAL  chgeom  parameter 

C  FLAT  REAL  latitude  array 

C  FLON  REAL  longtitude  array 

C  FVALI  REAL  chgeom  parameter 

C  FVALO  REAL  chgeom  parameter 

C  FW1  REAL  work  array  for  chgeom 

C  FW2  REAL  work  array  for  chgeom 

C  GEOMI  INTEGER  data  structure  containing  the  input 

C  grid  definition  (chgeom) 

C  GGEOM  CHAR*32  data  structure  containing  the  output 
C  grid  definition  (chgeom) 

C  GMODEL  CHAR+32  NOGAPS  model 

C  I  INTEGER  counter 

C  IFLAGI  INTEGER  input  field  flag  (chgeom) 

C  IMAX  INTEGER  first  dimension  of  an  array 

C  ISFLG  INTEGER  chgeom  flag 

C  ISTGR  INTEGER  stagger  flag  (chgeom) 

C  IVEC  INTEGER  vector  flag  (chgeom) 

C  IWRP  INTEGER  wrap  flag  (chgeom) 

C  J  INTEGER  counter 

C  JMAX  INTEGER  second  dimension  of  an  array 

C  LAFLAG  INTEGER  land  average  flag  (chgeom) 

C  LAP  ASS  INTEGER  number  of  passes  (chgeom) 

C  LASRCH  INTEGER  number  of  points  to  search  (chgeom) 

C  LAVAL  REAL  values  in  the  field  (chgeom) 

C  LEN  INTEGER  total  number  of  element  in  an  array 
C  LSTATS  INTEGER  output  unit 

C  NCOLS  INTEGER  column  count 

C  NGEOM  INTEGER  data  structure  containing  the  input 

C  grid  definition  (chgeom) 

C  NRFCST  REAL  NORAPS  forecast  field 

C  NRFCSTU  REAL  NORAPS  wind_u  forecast 

C  NRFCSTV  REAL  NORAPS  wind_v  forecast 

C  NROWS  INTEGER  row  count 

C  ORIGLAT  DOUBLE  latitude  of  origin 

C  ORIGLON  DOUBLE  longitude  of  origin 
C  ORIGX  REAL  x  coordinate  of  origin 

C  ORIGY  REAL  y  coordinate  of  origin 

C  PARM1  REAL  geometry  parameter  #1 

C  PARM2  REAL  geometry  parameter  #2 

C  PARM3  REAL  geometry  parameter  #3 


109 


C  PRJNAM  CHAR*24  projection  name 

C  STDESC  CHAR *24  Storage  description 

C  XINTDIS  REAL  Interval  distance  between  columns 

C  YINTDIS  REAL  Interval  distance  between  rows 

C 

C  METHOD: 

c  1 .  Get  ISIS  information  on  geomnamel  by  calling  GGRD  and 
c  GETGEOM. 

c  2.  Call  GGRD  and  GETGEOM  on  the  geomname2. 
c  3.  Test  for  'spherical*  projection. 

c  4.  Find  the  first  and  second  dimension  of  the  geomname2. 
c  5.  Convert  i/j  to  lat/lon  by  calling  vxyll. 
c  6.  Interpolate  field  1  to  field2  by  calling  CHGEOM. 

C 

C  INCLUDE  FILES:  NONE 
C 

C  COMPILER  DEPENDENCIES:  f90 
C 

C  COMPILE  OPTIONS:  -f  fixed  -c 
C 

C  MAKEFILE:  Located  at  /a/ops/app/mverif/src/sub/makeverobslib 
C  UNICOSmake 
C 

C  RECORD  OF  CHANGES: 

C 

C  «CHANGE  NOTICE»  Version  1.1  (29  Apr  199S)  -  Kyongsuk 
C  Initial  submission 
C 

C . END  PROLOGUE . 

C 

implicit  none 
c  Formal  parameters 

C*******************************:M  ******* ******* ******* ******** ********** 

character(32),  Intent(in)  ::  geomnamel  !  first  geometry  name 
character(32),  Intent(in)  ::  geomname2  !  second  geom  name 
integer,  Intent(in)  ::  arr_size  !  array  size 
real,  Intent(in)  ::  fieldl  (arr_size)!  array  to  interpolate 
real  : :  field2(arr_size) ! interpolated  array 

integer  ::  istat  !  status 

c************************************************************************ 
c  Local  variables 

c************************************************************************ 
character*  1  uv 
character*24  stdesc,  cstdesc 
character*24  pijnam,  cpijnam 
character*32  gmodel,  ggeom 

integer  i,j 

integer  lstats,  ngeom 
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integer  geomi,  ncols,  mows 

integer  cncols,  cmows,  im,  jm,  imax,  jmax,  len 

integer  ivec,  iwrp,  istgr,  iflagi,  laflag,  lasrch,  lapass,  isflg 

real  fvali,  fvalo,  filval,  laval 

real  origx,  origy,  parml ,  parm2,  parm3 ,  xintdis,  yintdis 
real  corig x,  corigy,  cparml ,  cparm2,  cparm3,  cxintdis,  cyintdis 

parameter  (im  =  360) 
parameter  (jm  =181) 

real  fwl  (im,jm),  fw2(im5jm),  flat(im9jm),  flon(im,jm) 

double  precision  origlat,  origlon,  coriglat,  coriglon 
parameter  (uv  =  'd') !  for  vxyll 'd'  means  in  degrees 

c*****+******************sjc  *********************************************** 

c  Functions 

c************************************************************************ 
integer  imaxcv,  jmaxcv 

c  get  ISIS  info  on  the  geometryl  by  calling  GGRD 
c  and  GETGEOM 

call  GGRD(geomnamel5  geomi,  istat) 
if  (istat  .ne.  0)  then 

write  (0,,(Mggrd  for  geomnamel  returns  istat  =M,i5)’)  istat 
call  exit(l  1) 
end  if 

call  getgeom(geomi,  cpijnam,  cstdesc,  cncols,  cmows,  coriglat, 

2  coriglon,  corigx,  corigy,  cxintdis,  cyintdis,  cparml , 

3  cparm2,  cparm3,  istat) 

if  (istat  .ne.  0)  then 

write  (0,'(Mgetgeom  for  geomname  returns  istat  =M,i5)')  istat 
call  exit(l  1) 
end  if 

if  (cpijnam  .ne.  'spherical')  then 

write(0, '("projection  name  for  geomnamel  is  not  spherical")') 
callexit(ll) 
end  if 

c  get  ISIS  info  on  the  geometry2  by  calling  GGRD 

call  ggrd(geomname2,ngeom,istat) 
if  (istat  .ne.  0)  then 

write  (0,f("ggrd  for  geomname2  returns  istat  =",i5)')  istat 
callexit(ll) 
end  if 
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call  getgeom(ngeom,  pijnam,  stdesc,  ncols,  nrows,  origlat, 

2  origlon,  origx,  origy,  xintdis,  yintdis,  parml ,  parm2, 

3  parm3,  istat) 

if  (istat  .ne.  0)  then 

write  (0,’("getgeom  for  geomname2  returns  istat  - ’,i5)') 

2  istat 
call  exit(l  1) 
end  if 

if  (pijnam  .ne.  ’spherical')  then 

write(0, '("projection  name  for  geomname2  is  not  spherical")') 
call  exit(l  1) 
end  if 


c= . . —  . =  . ;  = . ===== 

c  convert  the  i,j  to  lat/lon 
c  ref:  /a/library/omsp/chgeom/src/sub/chgeom.f 
c  flat=array  of  latitudes  from  vxyll  for  new  2-D  array  geomo 
c  flon=airay  of  longitudes  from  vxyll  for  new  2-D  array  geomo 

c . -  . - — ===== —  =  =  ===== 

imax=imaxcv(ncols,nrows, stdesc) 
jmax==jmaxcv(ncols, nrows, stdesc) 
doj=l,  jmax 
do  i-1,  imax 
fwl(ij)  —  float(i) 
fw2(i  j)  =  float(j) 
enddo 
enddo 


len  =  imax*jmax 

call  vxyll(ngeom,  len,  fwl,  fw2,  uv,  flat,  flon,  istat) 
if  (istat  .ne.  0)  then 
write(0;(" VXYLL  error")’) 
call  exit(l  1) 
endif 


c  . - =  =  - - -  =  — == 

c  set  some  of  the  chgeom  parameter  values  (ref:  chgeom  write-up) 

c —  - — -  — '  -  - - - — — —  =  = 

ivec  =  1 
iwrp  =  1 
istgr  =  0 
iflagi  =  0 
fvali  =  0.0 
fvalo  =  0.0 
laflag  =  0 
lasrch  =  20 
laval  =  0.0 
lapass  =  0 
filval  =0.0 
isflg  =  0 
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c - 

c  change  the  fieldl  to  field2 

C - J - ===r=====================^  =  1  - = 

call  chgeom(fieldl,  fieldl,  cncols,  cnrows,  geomi,  imax,  jmax, 

1  ngeom,  ivec,  iwrp,  istgr,  iflagi,  fvali,  fvalo, 

2  laflag,  lasrch,  laval,  lapass,  filval,  isflg, 

3  fwl ,  fw2,  field2,  field2,  istat) 
if  (istat  .ne.  0)  then 

write(0,'("CHGEOM  error  in  intgeom")') 
call  exit(  11) 
endif 

return 

end  subroutine  intgeom 

8.  uv2df.f90 

subroutine  uv2df(u,  v,  n,  dir,  spd) 

C 

C . START  PROLOGUE . 

C 

C  sees  IDENTIFICATION:  @(#)uv2df.f90  1.1  04/24/98 /h/cm/library/mverifisrc/sub/uv2df.f90_v 
C 

C  CONFIGURATION  IDENTIFICATION:  NONE 
C 

C  MODULE  NAME:  uv2df 
C 

C  DESCRIPTION:  This  subroutine  converts  u/v  components  to  a 
C  field  of  direction/speed  (dd/fi)- 

C 

C  COPYRIGHT:  (c)  1996FLENUMMETOCCEN 

C  U.S.  GOVERNMENT  DOMAIN 

C  ALL  RIGHTS  RESERVED 

C 

C  CONTRACT  NUMBER  AND  TITLE:  N/A 
C 

C  REFERENCES:  NONE 
C 

C  CLASSIFICATION:  Unclassified 
C 

C  RESTRICTIONS:  NONE 
C 

C  COMPUTER/OPERATING  SYSTEM 
C  DEPENDENCIES:  CrayUNICOS 

C 

C  LIBRARIES  OF  RESIDENCE:  /a/ops/bin 
C 

C  USAGE: 

C  call  uv2df(u,  v,  n,  dir,  spd) 

C 

C  PARAMETERS: 
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Description 


C  Name  Type  Usage 

C  . 

C  U  REAL  INPUT  Wind  u-comp  fcst  interpolated  to  obs 

C  V  REAL  INPUT  Wind  v-comp  fcst  interpolated  to  obs 

C  N  INTEGER  INPUT  No.  of  observations 

C  DIR  REAL  OUTPUT  Converted  direction  array 

C  SPD  REAL  OUTPUT  Converted  speed  array 

C 

C  COMMON  BLOCKS:  N/A 
C 

C  FILES:  N/A 
C 

C  DATA  BASES:  N/A 
C 

C  NON-FILE  INPUT/OUTPUT:  N/A 
C 

C  ERROR  CONDITIONS:  N/A 
C 

C  ADDITIONAL  COMMENTS:  NONE 
C 

C . MAINTENANCE  SECTION . 

C 

C  MODULES  CALLED:  N/A 
C 

C  LOCAL  VARIABLES  AND  Structures  are  documented  in  detail 
C  STRUCTURES:  where  they  are  defined  in  the  code 

C  within  include  files. 

C  Name  Type  Description 

C  -  —  - 

C  I  INTEGER  Counter 

C  R2D  REAL  45.0/atan(1.0) 

C 

C  METHOD: 

C  Convert  u/v  to  dir/spd  by  using  simple  trigonometric  functions. 

C 

C  INCLUDE  FILES:  NONE 
C 

C  COMPILER  DEPENDENCIES:  f90 
C 

C  COMPILE  OPTIONS:  -f  fixed  -c 
C 

C  MAKEFILE:  Located  at  /a/ops/app/mverif/src/sub/makeverobslib 
C  UNICOS  make 
C 

C  RECORD  OF  CHANGES: 

C 

C  «CHANGE  NOTICE»  Version  1 . 1  (29  Apr  1 998)  -  Kyongsuk  Pace 
C  Initial  submission 
C  Original  Programmer:  M.A.  Rennick 
C 

C . END  PROLOGUE . 

C 
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implicit  none 


c  formal  parameters 

c****************************************************************** 
real  u(n),  v(n),  dir(n),  spd(n) 
integer  n 

c  local  variables 

C*atej|e*4:*sjc^  +  ********s|6*sje*******5fc********3!t***5le************************* 

integer  i 
real  r2d 
real  badval 

parameter(badval=l  .E+l  0) 
r2d  =  45.0  /  atan(l  .0) 
doi=  l,n 

if  (u(i)  .eq.  badval)  then 
dir(i)  -  999.0 
spd(i)  =  999.0 
else 

if  (u(i)  .eq.  0.0)  then 
u(i)  =  1  .Oe-6 
end  if 

dir(i)  =  270.0  -  r2d  *  atan2(v(i),  u(i)) 
if  (dir(i)  .gt.  360.0)  then 
dir(i)  =  dir(i)  -  360.0 
end  if 

spd(i)  =  sqrt(u(i)*u(i)  +  v(i)*v(i)) 
end  if 
end  do 

return 

end  subroutine  uv2df 

9,  lltread.f90 

subroutine  lltread(seq_type,  param,  lvl,  dsetnm, 

2  dtg,  minlat,  maxlat,  minion, 

3  maxlon,  typlvl,  obslat,  obslon, 

4  nobs,  obsval,  istat) 

C 

C . START  PROLOGUE . 

C 

C  sees  IDENTIFICATION:  @(#)Utread.f90  1.1  04/24/98  /h/cm/library/mverif/src/sub/lltread.f90_v 
C 

C  CONFIGURATION  IDENTIFICATION:  NONE 
C 

C  MODULE  NAME:  lltread 
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c 

C  DESCRIPTION:  This  module  calls  the  appropriate  latitude- 
C  longitude-time  (lit)  read  module  based  upon 

C  the  user  specificed  lit  sequence  type(s). 

C  There  are  separate  read  modules  for  each  sequence 

C  type  because  of  the  different  include  files  and 

C  data  structure  in  the  ISIS  for  the 

C  different  observation  types. 

C 

C  COPYRIGHT:  (c)  1 996  FLENUMMETOCCEN 

C  U.S.  GOVERNMENT  DOMAIN 

C  ALL  RIGHTS  RESERVED 

C 

C  CONTRACT  NUMBER  AND  TITLE:  N/A 
C 

C  REFERENCES:  ISIS  LLT  User’s  Manual 
C 

C  CLASSIFICATION:  Unclassified 
C 

C  RESTRICTIONS:  NONE 
C 

C  COMPUTER/OPERATING  SYSTEM 
C  DEPENDENCIES:  CrayUNICOS 

C 

C  LIBRARIES  OF  RESIDENCE:  /a/ops/bin 
C 

C  USAGE: 

C  call  lltread(seq_type,  param,  lvl,  dsetnm,  dtg, 

C  minlat,  maxlat,  minion,  maxlon,  typlvl, 

C  obslat,  obslon,  nobs,  obsval,  istat) 

C 

C  PARAMETERS: 

C  Name  Type  Usage  Description 

C  . 

C  SEQ_TYPE  char*  24  INPUT  LLT  obs  type 

C  PARAM  CHAR*32  INPUT  Parameter  to  read  eg.  air_temp 

C  LVL  REAL  INPUT  Pressure  level 
C  DSETNM  CHAR*24  INPUT  ISIS  dataset  name 
C  DTG  CHAR*  10  INPUT  Date  Time  Group  for  read 

C  MINLAT  REAL  INPUT  Minimum  latitude  of  the  area 

C  MAXLAT  REAL  INPUT  Maximum  latitude  of  the  area 

C  MINLON  REAL  INPUT  Minimum  longitude  of  the  area 

C  MAXLON  REAL  INPUT  Maximum  longitude  of  the  area 

C  TYPLVL  CHAR*24  INPUT  level  type 

C  OBSLAT  REAL(maxobs)  OUTPUT  Observation  latitude 

C  OBSLON  REAL(maxobs)  OUTPUT  Observation  longitude 

C  NOBS  INTEGER  OUTPUT  No  of  good  obs  read 

C  OBSVAL  REAL(maxobs)  OUTPUT  Observed  parameter  value 
C  ISTAT  INTEGER  OUTPUT  Status 

C 

C  COMMON  BLOCKS:  N/A 
C 
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C  FILES:  NONE 
C 

C  DATA  BASES:  NONE 
C 

C  NON-FILE  INPUT/OUTPUT:  N/A 
C 

C  ERROR  CONDITIONS: 

C  CONDITION  ACTION 

C . . - 

C  Numobs  exceeds  maxobs  Print  err  message  &  return 
C  (istat  =  - 1 ) 

C 

C  ADDITIONAL  COMMENTS:  NONE 
C 

C . MAINTENANCE  SECTION . 

C 

C  MODULES  CALLED: 

C  Name  Description 

C  . . 

C  RAOB_QC_READ  reads  ISIS  raob_qc  lit  data 
C  SF  C_LAND_READ  reads  ISIS  surface  land  lit  data 
C  SFC_SHIP_READ  reads  ISIS  surface  ship  met  lit  data 

C  SF C_SHIP_MET_Q C_RE AD  reads  ISIS  sfc  ship  met  qc  lit  data 
C  ALTY_READ  reads  ISIS  alty  lit  data 
C 

C  LOCAL  VARIABLES  AND  Structures  are  documented  in  detail 
C  STRUCTURES:  where  they  are  defined  in  the  code 

C  within  include  files. 

C 

C  INCLUDE  FILES: 

C  Name  Description 

C  v_data.h  common  variables  used  for  verobs 
C 

C  COMPILER  DEPENDENCIES:  f90 
C 

C  COMPILE  OPTIONS:  -f  fixed -c 
C 

C  MAKEFILE:  Located  at  /a/ops/app/mverif/src/sub/makeverobslib 
C  UNICOSmake 
C 

C  RECORD  OF  CHANGES: 

C 

C  «CHANGE  NOTICE»  Version  1.1  (29  Apr  1 998)  --  Kyongsuk  Pace 
C  Initial  submission 
C 

C . END  PROLOGUE . 

C 

implicit  none 
include  'v_data.h' 

£************************************************************************ 
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c  Formal  parameters 

c************************************************************************ 

character(24),  intent(in)  ::  seqjype 
Character(32),  Intent(in)  ::PARAM  !  parameter 
Real,  Intent(in)  ::  lvl  !  level 

CHARACTER(24),  INTENT  (IN)  ::  DSETNM  !  Data  set  name  used. 
CHARACTER(IO),  INTENT (IN)  ::  DTG  !  Date  Time  Group  for  read. 

REAL,  INTENT (IN)  MINLAT  !  South  latitude  boundary. 

REAL,  INTENT  (IN)  ::  MAXLAT  !  North  latitude  boundary. 

REAL,  INTENT(IN)  ::  MINLON  !  West  longitude  boundary. 

REAL,  INTENT(IN)  ::MAXLON  !  East  longitude  boundary. 

CHARACTER(24),  INTENT  (IN)  ::  TYPLVL  !  type  level,  e.g,  isbrjvl 


Real 

::  obslat(maxobs)  !  obs  lat 

Real 

::  obslon(maxobs)  !  obs  Ion 

Real 

::  obsval(maxobs)  !  obs  data  value 

integer 

: :  nobs  !  numober  of  obs 

integer 

::  istat 

c************************************************************************ 
!  Local  variables  used  as  arguments  for  LLT  read  subroutines: 
c************************************************************************ 
CHARACTERS)  ::  VRSNNAM  !  Version  of  ISIS  software  used. 

CHARACTER(8)  ::  SECLVL  !  7  character  security  classification  level. 

REAL  : :  HR  !  Hour  cited  in  the  report. 

CHARACTER(  1 6)  : :  MINDTG  !  Minmum  date  and  time  group  to  read. 
CHARACTERS  6) : :  MAXDTG  !  Maximum  date  and  time  group  to  read. 
CHARACTER(  1 6) ::  NEW_DTG  !  -12  DTG  if  current  not  found 
REAL  : :  MINHR  !  Minmum  hour  to  read. 

REAL  : :  MAXHR  !  Maximum  hour  to  read. 

c+3|e*J(t******Stc******************************  +  ***************  +  *****J»E**J|t****% 

c  Local  variables 

c************************************************************************ 


integer 

::  i 

REAL 

::  PLAT 

!  Point  latitude 

REAL 

::  PLON 

!  Point  longitude 

REAL 

::  DISTANCE  !  Radius  of  circle  centered 

!  at  PLAT/PLON 


CHARACTERS)  ::  BLOCK_STATION(10) 

CHARACTER(20) ::  STATION JSTAME(  10)  !  International  blksta  # 

Character(20) ::  stn_name 

vrsnnam  = 
seclvl  =  TJNCLASS' 

c************************************************************************ 
c  initialize  the  arrays  oblat,  oblon,  obval 

C******************:M**************************************************** 

do  i=l,maxobs 
obslat(i)  =  bad_value 
obslon(i)  -  bad_value 
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obsval(i)  =  bad_value 
end  do 


c  RAOB_QC  LLT  (nogaps,  noraps,  coamps 

^ic********************************************************************** 

if  (seq_type  =  ’raob_qc')  then 
CALL  RAOB_QC_READ(vrsnnam,  dsetnm,  seclvl, 


2 

dtg. 

param. 

lvl. 

3 

minlat. 

maxlat. 

minion. 

4 

maxlon. 

obslat, 

obslon. 

5 

nobs. 

obsval. 

istat) 

c  sfc_lnd  (nogaps,  noraps,  coamps 

c*^  ++***************************************************************3ic**** 

else  if  (seq_type  —  'sfcjnd')  then 
CALL  SF C_LND__RE AD  (vrsnnam,  dsetnm,  seclvl, 

2  dtg,  param,  lvl, 

3  minlat,  maxlat,  minion, 

4  maxlon,  obslat,  obslon, 

5  nobs,  obsval,  istat) 

c********3|e*****J|e********************************************************* 

c  sfc_ship  (wam_global,  otis_global 

c****5*C***************5tc************************************t************** 

else  if  (seq_type  —  'sfc_ship')  then 
CALL  SFC__SHDDP_READ(vrsnnam,  dsetnm,  seclvl, 

2  dtg,  param,  lvl, 

3  minlat,  maxlat,  minion, 

4  maxlon,  obslat,  obslon, 

5  nobs,  obsval,  istat) 


c  sfc_ship_met_qc  (nogaps,  noraps,  coamps 

else  if  (seqjype  = ' sfc_ship_met_qc')  then 
CALL  SF C_SH3P_MET_QC_RE AD 

2  (vrsnnam,  dsetnm,  seclvl, 

3  dtg,  param,  lvl, 

4  minlat,  maxlat,  minion, 

5  maxlon,  obslat,  obslon, 

6  nobs,  obsval,  istat) 


c; ************************************************************************ 
c  alty  (wam_global 

cSjC********)}!*************************5le****5t:********JlC******:*:*************** 

else  if  (seqjype  —  'alty')  then 
CALL  ALT  Y_READ(  vrsnnam,  dsetnm,  seclvl, 

2  dtg,  param,  lvl, 

3  minlat,  maxlat,  minion, 

4  maxlon,  obslat,  obslon. 
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5  nobs,  obsval,  istat) 

c  other  seq_types 
end  if 
return 

end  subroutine  lltread 

10.  alty.f90 

subroutine  alty_read(vrsnnam,  dsetnm,  seclvl,  dtg,  param, 


2  lvl,  minlat,  maxlat,  minion,  maxlon, 

3  lat,  Ion,  nobs,  obs,  istat) 

C 

C . START  PROLOGUE . 

C 


C  sees  IDENTIFICATION:  @(#)alty.f90  1.1  04/24/98  /h/cm/libraiy/mveriRsrc/sub/alty.f90_v 
C 

C  CONFIGURATION  IDENTIFICATION:  NONE 
C 

C  MODULE  NAME:  alty_read 
C 

C  DESCRIPTION:  subroutine  to  read  the  alty  data  and  pick 
C  out  the  obs  data  for  the  given  parameter 

C 

C  COPYRIGHT:  (c)  1 998  FLENUMMETOCCEN 

C  U.S.  GOVERNMENT  DOMAIN 

C  ALL  RIGHTS  RESERVED 

C 

C  CONTRACT  NUMBER  AND  TITLE:  N/A 
C 

C  REFERENCES:  NONE 
C 

C  CLASSIFICATION:  Unclassified 
C 

C  RESTRICTIONS:  NONE 
C 

C  COMPUTER/OPERATING  SYSTEM 
C  DEPENDENCIES:  CrayUNICOS 

C 

C  LIBRARIES  OF  RESIDENCE:  /a/ops/bin 
C 

C  USAGE: 

C  call  alty_read(  vrsnnam,  dsetnm,  seclvl,  dtg,  param, 

C  lvl,  minlat,  maxlat,  minion,  maxlon, 

C  lat.  Ion,  nobs,  obs,  istat) 

C 

C  PARAMETERS: 

C  Name  Type  Usage  Description 
C  . - . . 
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C  VRSNNAM  CHAR*  8  INPUT  lit  version  name 

C  DSETNM  CHAR*24  INPUT  data  set  name 
C  SECLVL  CHAR*8  INPUT  classification 

C  DTG  CHAR*  10  INPUT  date  time  group  for  read 

C  PARAM  CHAR*32  INPUT  parameter 
C  LVL  REAL  INPUT  level  type 
C  MINLAT  REAL  INPUT  minimum  latitude 

C  MAXLAT  REAL  INPUT  maximum  latitude 

C  MINLON  REAL  INPUT  minimum  longitude 

C  MAXLON  REAL  INPUT  maximum  longitude 

C  LAT  REAL(size)  OUTPUT  obs  latitude 

C  LON  REAL(size)  OUTPUT  obs  longitude 

C  NOBS  INTEGER  OUTPUT  number  of  obs 

C  OBS  REAL(size)  OUTPUT  obs  value 

C  ISTAT  INTEGER  OUTPUT  return  status 

C 

C  COMMON  BLOCKS:  N/A 
C 

C  FILES:  None 
C 

C  DATA  BASES:  ISIS  LLTJDB 
C  Name  Table  Usage  Description 

C  . 

C  alty  ALTY  IN  alty  obs 

C 

C  NON-FILE  INPUT/OUTPUT:  N/A 
C 

C  ERROR  CONDITIONS: 

C  CONDITION  ACTION 

C  . 

C  DTG  error  Print  err  message  &  return 

C  Error  return  from  LRD  Print  err  message 
C  Error  return  from  LCLOS  Print  err  message 
C 

C  ADDITIONAL  COMMENTS:  NONE 
C 


C . MAINTENANCE  SECTION . 

C 

C  MODULES  CALLED: 

C  Name  Description 

C  - - - 

C  LCLOS  ISIS  LLT  close 

C  LEN_TRIM  Determines  the  length  of  a  string 

C  LRD  ISIS  LLT  read 
C  TRIM  Removes  the  trailing  blanks 

C 

C  LOCAL  VARIABLES  AND  Structures  are  documented  in  detail 
C  STRUCTURES:  where  they  are  defined  in  the  code 

C  within  include  files. 

C 

C  METHOD: 

C  Set  seq_type  to  'alty' 


121 


C  See  raob_qc_read  for  the  rest. 

C 

C  INCLUDE  FILES: 

C  Name  Description 

C  . 

C  ALTY.H  alty  header  file 

C 

C  COMPILER  DEPENDENCIES:  ©0 
C 

C  COMPILE  OPTIONS:  -f  fixed -c 
C 

C  MAKEFILE:  Located  at  /a/ops/app/mverif/src/sub/makeverobslib 
C  UNICOS  make 

C 

C  RECORD  OF  CHANGES: 

C 

C  «CHANGE  NOTICE»  Version  L 1  (29  Apr  1 998)  -  Kyongsuk  Pace 
C  Initial  submission 
C 

C . END  PROLOGUE . 

C 

implicit  none 
include  'v_data.h' 
include  'ALTY.H' 


c********************************************************************** 

c  formal  parameters 

c**************************************************************** ****** 
character(8),  intent(in) ::  vrsnnam 
character(24),  intent(in) ::  dsetnm 
character(8),  intent(in) ::  seclvl 
character(lO),  intent(in) ::  dtg 
character(32),  intent(in) ::  par  am 
real,  intent(in) ::  Ivl 

real,  intent(in) ::  minlat 

real,  intent(in) ::  maxlat 

real,  intent(in) ::  minion 

real,  intent(in) ::  maxlon 

real  ::  lat(size) 

real  ::  lon(size) 

integer  ::  nobs 

real  ::obs(size) 

integer  ::  istat 


c********************************************************************** 
c  local  variables  used  as  arguments  for  LRD: 

c*t*+****************************************************************** 

character(24) ::  seq_type 
real  ::hr 

CHARACTER(1 6)  : :  MINDTG  !  Minmum  date  and  time  group  to  read. 
CHARACTER(  16)::  MAXDT G  !  Maximum  date  and  time  group  to  read. 

REAL  : :  MINHR  !  Minmum  hour  to  read. 
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REAL  : :  MAXHR  !  Maximum  hour  to  read. 

CHARACTER(  16)::  RSN_IN  !  Reporting  source  name. 

REAL  ::FCST_IN  !  Desired  forecast  "TAU". 

CHARACTER(24) : :  MINUPTM  !  Minimum  update  time. 

CHARACTER(56) ::  REMARKS  !  Description  of  data/assoc,  record. 
CHARACTER(16) ::  RPT_DTG  !  Actual  date  &  time  group  for  report. 

REAL  : :  RPT_HR  !  Reported  hour  read. 

REAL  ::  RPTJLAT  !  Reported  latitude  read. 

REAL  ::  RPT_LON  !  Reported  longitude  read. 

CHARACTER(16)  : :  RPTJRSN  !  Reported  longitude  read. 

REAL  ::  RPT_FCST  !  Reported  "TAU"  or  forecast  time. 

CHARACTER(24) ::  RPT_CRETM  !  Record  creation  date. 

CHARACTER(24)  : :  RPT_UDT  !  Report's  last  update  time. 

INTEGER  : :  BUFFLAG  !  0  =>  Input  is  in  FBUFF 
!  1  =>  Input  is  in  IBUFF 

INTEGER  : :  LLT JOD  !  Unique  database  LLT  identifier  for  each 

!  dataset. 

INTEGER  : :  BLKSEQID  !  Unique  database  LLT  block  identifier. 

INTEGER  : :  RECSEQID  !  Unique  database  LLT  record  identifier. 

TYPE(alty_int)::  IBUFF  !  integer  record  structure. 

TYPE(alty)::  FBUFF  !  Real  record  structure. 

c*+*****************************************5i£************************** 

c  Arguments  for  LCLOS  (that  get  for  values). 

CHARACTER(24)  ::  SEQTYPE_X  !  Report  type. 

CHARACTER^)  ::  VRSNNAM_X  !  Version  of  ISIS  software  used. 
CHARACTER(24) ::  DSETNAM_X  !  Data  set  name  used. 

CHARACTERS)  ::  SECLVL_X  !  7  character  security 
!  classification  level. 

CHARACTER(16)  ::  DTG_X  !  Date  Time  Group  for  write. 

c***tt  +  **************************************************************** 

c  Other  local  variables 

integer ::  levels 
integer ::  status,  i,  status2 

seqjype  =  ’alty’  S  Report  type 
istat  =  0 


j  ********************************************************************** 

!  Set  up  date  and  time  group  in  YYYYMMDDHH  format  in  DTG. 

IF  (  LEN_TRIM(DT G)  =10)  THEN 
READ  (UNIT=DTG(9: 1 0),FMT- (F2.0)'JOSTAT=STATUS)  HR 
F  (  STATUS  =  0  )  THEN 
F  (HR<  12. )  THEN 
HR  =  0. 

ELSE 
HR  =12. 


123 


END  IF 
ELSE 

WRITE  *  '  Cannot  read  hour  ",  DTG(9: 10), 

2  '  from  date  &  time  group  TRIM(DTG) 

istat  =  -1 
RETURN 
END  IF 
ELSE 

STATUS  =10 

WRITE  *,  'alty:  Got  date  and  time  group 

2  TRIM(DTG),' of  length’, 

3  LEN_TRIM(DTG), '  but  expected  length  =10.' 
istat  =  - 1 

RETURN 
END  IF 

********************************************************************* 
Set  the  input  parameters  used  to  get  a  read-back  value. 

i  *************** *********************** ************** ***************** 

MINDTG  =  DTG;  MAXDTG  =DTG 

MINHR  =HR;  MAXHR  -HR+1 1.999 
RSN_IN  =  '*' 

FCST_IN  =  0.0  !  Report  forecast  period  or  Tau  (normal  =  0.0) 

MJNUPTM  =  ’*’ 

BUFFLAG  =  0  !  Want  (both)  floating  (and  integer). 

********************************************************************* 
get  the  data  from  LLT  db 

********************************************************************* 

1  =  0 
nobs  =  0 

DO  WHILE  (  STATUS  =  0  ) 

CALL  LRD(seq_type,  vrsnnam,  dsetnm,  SECLVL, 

2  MINDTG,  MINHR,  MAXDTG,  MAXHR, 

3  MINLAT,  MAXLAT,  MINLON,  MAXLON, 

4  RSN_IN,  FCSTJN,  MINUPTM,  BUFFLAG, 

5  RPT_DTG,  RPT_HR,  RPT_LAT,  RPT_LON, 

6  RPT_RSN,  RPT_FCST,  RPT_CRETM,  RPT_UDT, 

7  LLT_ID,  BLKSEQID,  RECSEQID, 

8  IBUFF,  FBUFF,  STATUS ) 

IF  (  STATUS /=0)  THEN 

IF  (  STATUS  /=  100  )  THEN 
!  Ignore  normal  no-more-data  return  code 
WRITE  *  '  Read  from  ISIS  failed.  Code  = STATUS,  V 
istat  =  status 
END  IF 

ELSE  !  successful  LRD 
1  =  1  +  1 


c*************************jM*******+*************************************** 

c  pick  out  the  relevant  info  and  fill  the  array 
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Q************************************************************************** 

if  (par am  =  ’sig_wav_hf)  then 
if  (fbuff  %  sig_wav_ht  <  check_val)  then 
nobs  =  nobs  +  1 
lat(nobs)  =  fbuff  %  crse_lat 
lon(nobs)  =  fbuff  %  crse_lon 
obs(nobs)  =  fbuff  %  sig_wav_ht 
end  if 

else  if  (par am  =  'wnd_spd')  then 
if  (fbuff  %  wnd_spd  <  check_val)  then 
nobs  =  nobs  +  1 
lat(nobs)  =  fbuff  %  crsejat 
lon(nobs)  =  fbuff  %  crse_lon 
obs(nobs)  =  fbuff  %  wnd_spd 
end  if 

end  if !  par  am 
end  if  !  OK  status 
END  DO  !  i  loop 

IF  (  STATUS  —  100 )  STATUS  -  0 
write  *, ' ' 

WRITE  *  ’  Called  LRD I, '  times.' 

write  *, '  Read nobs, '  obs  of  sequence  type TRIM(SEQ_TYPE), 

2 

j  *********%*  ****++*  ************%*  ***************+************************* 

!  Close  the  dataset  (now  open  for  reading)  again. 

SEQTYPE_X  =  •*' ;  VRSNNAM_X  =  ;  DSETNAM_X  = 

SECLVL_X  =  ;  DTG_X  = 

CALL  LCLOS(SEQTYPE_X,  VRSNNAM_X,  DSETNAM_X, 

2  SECLVL_X,  DTG_X,  STATUS2) 

IF  (  STATUS2  /=  0  )  THEN 
WRITE  *, '  Could  not  close  ISIS  table. 

2  '  Error  code  is STATUS2,  V 

END  F 

return 

end  subroutine  alty_read 

11.  raob_qc.f90 

subroutine  raob_qc_read(vrsnnam,  dsetnm,  seclvl,  dtg,  param, 

2  lvl,  minlat,  maxlat,  minion,  maxlon, 

3  lat,  ion,  kfinal,  obs,  istat) 
c 

c . START  PROLOGUE . 

c 
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c  SCCS  IDENTIFICATION:  @(#)raob_qc.f90  1.1  04/24/98  /h/cm/library/mverif/src/saib/raob_qc.f90__v 
c 

c  CONFIGURATION  IDENTIFICATION:  NONE 
c 

c  MODULE  NAME:  raob_qc_read 
c 

c  DESCRIPTION:  subroutine  to  read  the  raob_qc  data  and  pick 
c  out  the  obs  data  for  the  given  parameter 

c 

c  COPYRIGHT:  (c)  1 996  FLENUMMETOCCEN 

c  U.S.  GOVERNMENT  DOMAIN 

c  ALL  RIGHTS  RESERVED 

c 

c  CONTRACT  NUMBER  AND  TITLE:  N/A 
c 

c  REFERENCES:  LLT  User's  Manual 
c 

c  CLASSIFICATION:  Unclassified 
c 

c  RESTRICTIONS:  NONE 
c 

c  COMPUTER/OPERATING  SYSTEM 
c  DEPENDENCIES:  CrayUNICOS 

c 

c  LIBRARIES  OF  RESIDENCE:  /a/ops/bin 
c 

c  USAGE: 

c  call  raob_qcj:ead(vrsnnam,  dsetnm,  seclvl,  dtg,  par  am, 
c  level,  minlat,  maxi  at,  minion,  maxlon, 

c  lat.  Ion,  kfinal,  obs,  istat) 

c 

c  PARAMETERS: 

c  Name  Type  Usage  Description 

c  . . - . 

c  VRSNNAM  INTEGER  INPUT  Version  name 

c  DSETNM  CHAR*24  INPUT  ISIS  dataset  name 
c  SECLVL  CHAR* 8  INPUT  Security  level 

c  DTG  CHAR*  10  INPUT  Date  Time  Group  for  read 
c  PARAM  CHAR*32  INPUT  Parameter  to  read  eg.  air_temp 

c  LVL  REAL  INPUT  Pressure  level 

c  MINLAT  REAL  INPUT  Minimum  latitude  of  the  area 

c  MAXLAT  REAL  INPUT  Maximum  latitude  of  the  area 

c  MINLON  REAL  INPUT  Minimum  longitude  of  the  area 

c  MAXLON  REAL  INPUT  Maximum  longitude  of  the  area 

c  LAT  Real(size)  OUTPUT  obs  latitude 

c  LON  Real(size)  OUTPUT  obs  longtitude 

c  KFINAL  INTEGER  OUTPUT  Number  of  obs 

c  OBS  Real(size)  OUTPUT  Observed  parameter  value 

c  ISTAT  INTEGER  OUTPUT  Status 

c 

c  COMMON  BLOCKS:  N/A 
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c  FILES:  None 
c 

c  DATA  BASES:  ISIS  LLT  database 
c 

c  Name  Table  Usage  Description 

c  . -  - 

c  raob_qc  RAOB_QC  IN  raob  obs 
c 

c  NON-FILE  INPUT/OUTPUT:  N/A 
c 

c  ERROR  CONDITIONS: 
c  CONDITION  ACTION 

c  . 

c  DTG  error  Print  err  message  &  return 

c  Error  return  from  LRD  Print  err  message 
c  Error  return  from  LCLOS  Print  err  message 
c 


c . MAINTENANCE  SECTION . 

c 

c  MODULES  CALLED: 
c  Name  Description 

c  - - 

c  LCLOS  ISIS  LLT  close 

c  LENJTRIM  Determines  the  length  of  a  string 

c  LRD  ISIS  LLT  read 

c  TRIM  Removes  the  trailing  blanks 

c 

c  LOCAL  VARIABLES  AND  Structures  are  documented  in  detail 
c  STRUCTURES:  where  they  are  defined  in  the  code 

c  within  include  files. 


c 

c  METHOD: 

c  1 .  Set  seqjype  to  'raob_qc' 
c 

c  2.  Get  hr  from  dtg,  set  mindtg,  maxdtg,  minhr,  maxhr,  rsn_in 
c  (reporting  source  name),  fcstjn  (desired  tau),  minuptm 
c  (min  update  time),  bufilag  (0) 
c 

c  3.Seti=0 
c 

c  do  while  (status  =  0) 

c  call  LRD(seq_type,  vrsnnam,  dsetnam,  seclvl,  mindtg, 

c  minhr,  maxdtg,  maxhr,  minlat,  maxlat, 

c  minion,  maxlon,  rsn_in,  fcst_in,  minuptm, 

c  bufflag,  rpt_dtg,  rtp_hr,  rpt_lat,  ipt_lon, 

c  rpt_rsn,  rpt_fcst,  ipt_cretm,  rpt_udt,  llt_id, 

c  blkseqid,  recseqid,  ibuff,  fbuff,  status) 

c  if  status  /=  0  then 
c  if  status  /=  1 00  then 

c  write  error  msg 

c  end  if 

c  else 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


i  =  i  +  1 

if  duplicate  data  using  rpt_rsn 
print  msg 
endif 


pick  out  the  relevant  info  and  fill  the  array 


nobs  =  0 

levels  =  fbuff  %  prof_cnt 
doj=l,  levels 


pick  out  only  the  right  level 


if  (prof_t  %  pres  —  level)  then 

latQ  =  fbuff  %  crsejat 
lonQ  ==  fbuff  %  crsejon 
if  parm  =  'air^temp'  then 
if  profit  %  air_temp  /-  missing_value  then 
obs(j)  =  prof_t  %  airjemp 
nobs  =  nobs  +  1 
endif 

elseif  parm  =  'geop_ht'  then 
if  prof_t  %  geop_ht  /=  missing_value  then 
obs(j)  =  profit  %  geop_ht 
nobs  =  nobs  +  1 
endif 

elseif  parm  =  ’wnd_dir'  then 
if  prof  J:  %  wnd_dir  /=  missing_value  then 
obs(j)  =  prof_t  %  wnd_dir 
nobs  =  nobs  +  1 
endif 

elseif  parm  =  'wnd_spdT  then 
if  profit  %  wnd_spd  /=  missmg_value  then 
obs(j)  =  prof_t  %  wnd_spd 
nobs  =  nobs  +  1 
endif 
endif 

endif  (right  level) 
enddo  (j  loop) 

endif  c  if  status^O 
enddo  c  i  loop 

if  (status  =  100)  then  status  is  good 
close  the  dataset  by  calling  LCLOS 


c  INCLUDE  FILES: 
c  Name  Description 

c  . . 
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c  RAOB__QC.H  raob  header  file 

c  common,  inc  LLT  data  structure 

c  v_data.h  common  variables  for  verobs 

c 

c  COMPILER  DEPENDENCES:  f90 
c 

c  COMPEE  OPTIONS:  -f fixed  -c 
c 

c  MAKEFEE:  Located  at  /a/ops/app/mverifisrc/sub/makeverobslib 
c  UNICOS  make 
c 

c  RECORD  OF  CHANGES: 
c 

c  «CHANGE NOTICE»  Version  LI  (29  Apr  1998)  -  KyongsukPace 
c  Initial  submission 
c 

c . END  PROLOGUE . 

c 

implicit  none 


include  'v_data.h' 
include  'common.inc' 
include  RAOB_QC.H’ 


c  formal  parameters 

character(8),  intent(in) ::  vrsnnam 
character(24),  intent(in) ::  dsetnm 
character(8),  intent(in) ::  seclvl 
character(lO),  intent(in)  ::  dtg 
character(32),  intent(in) ::  param 
real,  intent(in) ::  lvl 

real,  intent(in) ::  minlat 

real,  intent(in) ::  maxlat 

real,  intent(in) ::  minion 

real,  intent(in) ::  maxlon 

real  ::  lat(size) 

real  ::  lon(size) 

integer  ::kfinal 

real  ::  obs(size) 

integer  ::  istat 


c  local  variables  used  as  arguments  for  LRD : 

character(24)  ::  seqjype 
real  ::  hr 

CHARACTER(1 6) : :  MINDTG  !  Minmum  date  and  time  group  to  read 
CHARACTER(16) ::  MAXDTG  !  Maximum  date  and  time  group  to  read. 
REAL  : :  MINHR  !  Minmum  hour  to  read. 

REAL  : :  MAXHR  !  Maximum  hour  to  read. 
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CHARACTER^  6) ::  RSN_IN  !  Reporting  source  name. 

REAL  ::  FCST  JN  !  Desired  forecast  "TAU”. 

CHARACTER(24) : :  MINUPTM  !  Minimum  update  time. 

CHARACTER(56) ::  REMARKS  !  Description  of  data/assoc,  record. 
CHARACTER(16) ::  RPTJDTG  !  Actual  date  &  time  group  for  report. 

REAL  : :  RPT_HR  !  Reported  hour  read. 

REAL  : :  RPT_LAT  !  Reported  latitude  read. 

REAL  ::  RPT_LON  !  Reported  longitude  read. 

CHARACTER(  16)::  RPT_RSN  !  Reported  longitude  read. 

REAL  ::  RPT_FCST  !  Reported  "TAU"  or  forecast  time. 

CHARACTER(24) ::  RPT_CRETM  !  Record  creation  date. 

CHARACTER(24) ::  RPT_UDT  !  Report's  last  update  time. 

INTEGER  : :  BUFFLAG  !  0  =>  Input  is  in  FBUFF 

!  1  =>  Input  is  in  ffiUFF 

INTEGER  ::  LLTJD  !  Unique  database  LLT  identifier  for  each 
!  dataset. 

INTEGER  ::  BLKSEQID  !  Unique  database  LLT  block  identifier. 

INTEGER  ::  RECSEQID  !  Unique  database  LLT  record  identifier. 

TYPE(raob__qc_int) ::  EBUFF 

TYPE(raob_qc) ::  FBUFF  !  Real  record  structure. 

c********************************************************************** 
c  Arguments  for  LCLOS  (that  get  for  values). 
£************************************* ********* ******* ******* ********** 
CHARACTER(24) ::  SEQTYPE_X  !  Report  type. 

CHARACTER(8)  ::  VRSNNAM_X  !  Version  of  ISIS  software  used. 
CHARACTERS) ::  DSETNAM_X  !  Data  set  name  used. 

CHARACTER^)  ::  SECLVL_X  !  7  character  security 
!  classification  level. 

CHARACTER(  1 6)  ::  DTG  X  !  Date  Time  Group  for  write. 

c********************************************************************** 
c  Other  local  variables 

^,*** ******** *********** ********************************* *************** 
integer  ::  levels,  lvl_l ,  nmatch,  k 
integer  ::  status,  i,  j,  status2 

seq_type  =  'raob_qc' !  obs  report  type 
istat  =  0 


c********************************************************************** 
c  Set  up  date  and  time  group  in  YYYYMMDDHH  format  in  DTG. 
c********************************************************************** 
IF  (  LEN_TRIM(DT  G)  =  10  )  THEN 
READ  (UNIT=DTG(9:10),FMT=,(F2.0)',IOSTAT=STATUS)  HR 
IF  (  STATUS  =  0 )  THEN 
IF  ( HR  <  12.)  THEN 
HR  =  0. 

ELSE 
HR  =12. 

END  IF 
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ELSE 

WRITE  *, '  Cannot  read  hour DTG(9: 10), 

2  '  from  date  &  time  group  TRIM(DTG) 

istat  =  - 1 
RETURN 
END  IF 
ELSE 

STATUS  =10 

WRITE  *,'raob_qc:  Got  date  and  time  group TRIM(DTG), 

2  'of  length', 

3  LEN_TRIM(DTG), '  but  expected  length  ==  10.' 
istat  =  -1 

RETURN 
END  IF 

c*******************************************************************t* 

c  Set  the  input  parameters  used  to  get  a  read-back  value. 

c***5|:***4:***^******************5ie************************************** 

MINDTG  =  DTG;  MAXDTG  =DTG 
MINHR  =HR;  MAXHR  *HR+1 1.999 
RSN_IN  =  '*' 

FCST_IN  =  0.0  !  Report  forecast  period  or  Tau  (normal  =  0.0) 

MINUPTM  =  '*’ 

BUFFLAG  =0  !  Want  (both)  floating  (and  integer). 


c********************************************************************* 
c  get  the  data  from  LLT  db 

c********************************************************************* 

1  =  0 

kfinal  =  0  !  overall  number  of  matched  pressure  level  and  par  am 

DO  WHILE  (  STATUS  =  0  ) 

CALL  LRD(seq_type,  vrsnnam,  dsetnm,  SECLVL, 

2  MINDTG,  MINHR,  MAXDTG,  MAXHR, 

3  MINLAT,  MAXLAT,  MINLON,  MAXLON, 

4  RSN_IN,  FCSTJN,  MINUPTM,  BUFFLAG, 

5  RPT_DTG,  RPT_.HR,  RPT_LAT,  RPT_LON, 

6  RPT_RSN,  RPT_FCST,  RPT_CRETM,  RPT_UDT, 

7  LLT_ID,  BLKSEQID,  RECSEQID, 

8  IBUFF,  FBUFF,  STATUS ) 

IF  (  STATUS  /=  0 )  THEN 

IF  (  STATUS  /=  100 )  THEN 
!  Ignore  normal  no-more-data  return  code 
WRITE  *, '  Read  from  ISIS  failed.  Code  = ',  STATUS, '.' 
istat  =  - 1 
END  IF 

ELSE  !  successful  LRD 
1  =  1+1 

£ ************************************************************************** 
c  pick  out  the  relevant  info  and  fill  the  array 

c  prof  is  a  sub-structure  of  raob_qc 
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c  prof_cnt  has  the  number  of  level  s 

c***************** ************************************ ********************* 
levels  =  fbuff  %  prof_cnt 

do  j  =  1,  levels 

c********************************************** ********************* ******* 
c  pick  out  only  the  right  level 

c********************* ***************************************************** 

nmatch  =  0  !  number  of  matched  pressure  level  and  parameter 

lvl_l  -  int(fbuff  %  prof©  %  pres  /  100) 
if  (lvlj  —  lvl)  then 

c***************** ****************************** *************************** 
c  we  want  to  use  the  qc  flag  to  discard  the  bad  obs 

c  use  the  qc  flag  value  of  1  for  this  obs  type 

c************************** ******************* ********************** * ****** 
if  (par am  ==  'air_temp')  then 
if  (fbufi%prof(j)%air_temp_qc_id  =  1  .and. 

2  fbufi%prof(j)%air_temp  <  check_val)  then 

c************************** ******* ************ ********************* ******** 
c  want  to  fill  the  lat,  Ion,  obs  arrays  filled  from 

c  1  to  overall  number  of  matched  obs  without  any 

c  skipped  indices 

c  j  index  is  for  the  level_cnt  for  a  given  lat/lon,* 

c  k  index  is  for  the  matched  param  and  pressure  level 

c  within  the  j  index 

c**************************************** ********************************** 
nmatch  =  nmatch  +  1 
do  k  =  kfmal+1 ,  kfinal+nmatch 
lat(k)  =  fbuff  %  crsejat 
lon(k)  =  fbuff  %  crse_lon 
obs(k)  =  (fbuff  %  prof©  %  air_temp) 
end  do 
end  if 

else  if  (param  —  'geop_ht')  then 
if  (fbuff%prof(j)%geop_ht_qc_id  =  1  .and. 

2  fbuff%prof(j)%geop_ht  <  checkjval)  then 

nmatch  =  nmatch  +  1 
do  k  =  kfmal+1 ,  kfmal+nmatch 
lat(k)  =  fbuff  %  crse_lat 
Ion©)  =  fbuff  %  crsejon 
obs©)  =  fbuff  %  prof(j)  %  geop_ht 
end  do 
end  if 

else  if  (param  =  'wndjiir’)  then 
if  (fbufi%prof(j)%wnd_qc_id  ==  1  .and. 
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fbufi%prof0%dir  <  check_val)  then 
nmatch  =  nmatch  +  1 
do  k  =  kfinal+l ,  kfinal+nmatch 
lat(k)  =  fbuff  %  crsejat 
lon(k)  =  fbuff  %  crsejon 
obs(k)  =  fbuff  %  prof(j)  %  dir 
end  do 
end  if 

else  if  (param  —  'wnd_spd')  then 
if  (fbuff%prof(j  )%wnd_qc Jd  =  1  .and. 

2  fbuS%prof(j)%spd  <  check_val)  then 

nmatch  =  nmatch  +  1 
do  k  =  kfinal+l,  kfinal+nmatch 
lat(k)  =  fbuff  %  crsejat 
lon(k)  -  fbuff  %  crsejon 
obs(k)  =  fbuff  %  prof(j)  %  spd 
end  do 
end  if 

end  if !  param 
end  if  !  right  level 
kfinal  =  kfinal  +  nmatch 
end  do  !  levels  loop 
end  if  !  OK  status 
end  do  ! i  loop 
if  (status  =  100)  status  =  0 
write  *, ' ' 

write  *, '  Called  LRD I, '  times.' 

write  *, '  Read kfinal, '  obs  of  sequence  type 

2  TRIM(seq_type), 

^^4:^31:31:^^^*********************************************************** 

c  Close  the  dataset  (now  open  for  reading)  again. 
c************************************************************************* 
SEQTYPE_X  =  ;  VRSNNAM_X  =  ;  DSETNAM_X  = 

SECLVL_X  =  •*' ;  DTG_X  = 

CALL  LCLOS(SEQTYPE_X,  VRSNNAM_X,  DSETNAM_X, 

2  SECLVL_X,  DTG_X,  STATUS2) 
if  (STATUS2  /=  0)  then 
write  *, '  Could  not  close  ISIS  table. 

2  'Error  code  is STATUS2, 

end  if 

return 

end  subroutine  raob_qc_read 

12.  sfcland.f90 

subroutine  sfc_lnd_read(vrsnnam,  dsetnm,  seclvl,  dtg,  param, 
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2  Ivl,  minlat,  maxlat,  minion,  maxlon, 

3  lat,  Ion,  nobs,  obs,  istat) 

C 

C . START  PROLOGUE . 

C 


C  sees  IDENTIFICATION:  @(#)sfcland.f90  1.1  04/24/98  /h/cm/library/mveril/src/sub/sfcland.f90_v 
C 

C  CONFIGURATION  IDENTIFICATION:  NONE 
C 

C  MODULE  NAME:  sfc_lnd_read 
C 

C  DESCRIPTION:  subroutine  to  read  the  sfc_land  data  and  pick  out  the 
C  obs  data  for  the  given  parameter 

C 

C  COPYRIGHT:  (c)  1 996  FLENUMMETOCCEN 

C  U.S.  GOVERNMENT  DOMAIN 

C  ALL  RIGHTS  RESERVED 

C 

C  CONTRACT  NUMBER  AND  TITLE:  N/A 
C 

C  REFERENCES:  NONE 
C 

C  CLASSIFICATION:  Unclassified 
C 

C  RESTRICTIONS:  NONE 
C 

C  COMPUTER/OPERATING  SYSTEM 
C  DEPENDENCIES:  CrayUNICOS 

C 

C  LIBRARIES  OF  RESIDENCE:  /a/ops/bin 
C 

C  USAGE: 

C  call  sfc_land(vrsnnam,  dsetnm,  seclvl,  dtg,  param, 

C  lvl,  minlat,  maxlat,  minion,  maxlon, 

C  lat.  Ion,  nobs,  obs,  istat) 

C 

C  PARAMETERS: 

C  Name  Type  Usage  Description 

C  . 

C  VRSNNAM  CHAR*8  INPUT  lit  version  name 
C  DSETNM  CHAR*24  INPUT  data  set  name 
C  SECLVL  CHAR*8  INPUT  classification 

C  DTG  CHAR*  10  INPUT  date  time  group  for  read 

C  PARAM  CHAR*32  INPUT  parameter 
C  LVL  REAL  INPUT  level  type 
C  MINLAT  REAL  INPUT  minimum  latitude 

C  MAXLAT  REAL  INPUT  maximum  latitude 

C  MINLON  REAL  INPUT  minimum  longitude 

C  MAXLON  REAL  INPUT  maximum  longitude 

C  LAT  REAL(size)  OUTPUT  obs  latitude 

C  LON  REAL(size)  OUTPUT  obs  longitude 

C  NOBS  INTEGER  OUTPUT  number  of  obs 
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C  OBS  REAL(size)  OUTPUT  obs  value 

C  ISTAT  INTEGER  OUTPUT  status  code 
C 

C  COMMON  BLOCKS:  N/A 
C 

C  FILES:  None 
C 

C  DATABASES:  ISISLLT_DB 
C  Name  Table  Usage  Description 

C  . 

C  sfc_lnd  SFCJLND  IN  surface  land  obs 
C 

C  NON-FILE  INPUT/OUTPUT:  N/A 
C 

C  ERROR  CONDITIONS: 

C  CONDITION  ACTION 

C  — . . 

C  DTG  error  Print  err  message  &  return 

C  Error  return  from  LRD  Print  err  message 
C  Error  return  from  LCLOS  Print  err  message 
C 

C  ADDITIONAL  COMMENTS:  NONE 
C 

C . MAINTENANCE  SECTION . 

C 

C  MODULES  CALLED: 

C  Name  Description 

C  . 

C  LCLOS  ISIS  LLT  close 

C  LEN_TRIM  Determines  the  length  of  a  string 
C  LRD  ISIS  LLT  read 

C  TRIM  Removes  the  trailing  blanks 

C 

C  LOCAL  VARIABLES  AND  Structures  are  documented  in  detail 
C  STRUCTURES:  where  they  are  defined  in  the  code 

C  within  include  files. 

C 

C  METHOD: 

C  Set  seq_type  to  'sfc_lnd' 

C  See  raob_qc.f90  for  the  rest. 

C 

C  INCLUDE  FILES: 

C  Name  Description 

C  - - - 

C  SFC_LND.H  surface  land  header  file 
C  V_DATA.H  common  variables  for  verobs 

C 

C  COMPILER  DEPENDENCIES:  190 
C 

C  COMPILE  OPTIONS:  -f  fixed  -c 
C 

C  MAKEFILE:  Located  at  /a/ops/app/mverif/src/sub/makeverobslib 
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C  UNICOS  make 
C 

C  RECORD  OF  CHANGES: 

C 

C  «CHANGE  NOTICE»  Version  1.1  (29  Apr  1 998)  —  Kyongsuk  Pace 
C  Initial  submission 
C 

C . END  PROLOGUE . 

C 

implicit  none 
include  'v_data.h' 
include  'SFC_LND.H* 

c********************************************************************** 
c  formal  parameters 

c********************************************************************** 
character(8),  intent(in) ::  vrsnnam 
character(24),  intent(in) dsetnm 
character(8),  intent(in) ::  seclvl 
character(lO),  intent(in) ::  dtg 
character(32),  intent(in) ::  param 
real,  intent(in) ::  lvl 

real,  intent(in)  ::  minlat 

real,  intent(in)  : :  maxlat 

real,  intent(in) ::  minion 

real,  intent(in) ::  maxlon 

real  ::  lat(size) 

real  ::  lon(size) 

integer  ::nobs 

real  ::  obs(size) 

integer  ::  istat 

c*************** ******************************************************* 
c  local  variables  used  as  arguments  for  LRD: 

C**J| e************ ****************************** ************ ************* 

character(24) ::  seq_type 
real  ::  hr 

CHARACTER(1 6) : :  MINDTG  !  Minmum  date  and  time  group  to  read. 
CHARACTER^  6) : :  MAXDTG  !  Maximum  date  and  time  group  to  read. 

REAL  : :  MINHR  !  Minmum  hour  to  read. 

REAL  : :  MAXHR  !  Maximum  hour  to  read. 

CHARACTER(16)  ::  RSN  IN  !  Reporting  source  name. 

REAL  : :  FCSTJN  !  Desired  forecast  "TAU". 

CHARACTER(24) ::  MINUPTM  !  Minimum  update  time. 

CHARACTER(56) ::  REMARKS  !  Description  of  data/assoc,  record. 
CHARACTER(16) ::  RPT_DTG  !  Actual  date  &  time  group  for  report. 

REAL  : :  RPTJHOR  !  Reported  hour  read. 

REAL  ::  RPT_LAT  !  Reported  latitude  read. 

REAL  : :  RPT  JLON  !  Reported  longitude  read. 

CHARACTER(16) ::  RPT_RSN  !  Reported  longitude  read. 

REAL  : :  RPT_FCST  !  Reported  "TAU”  or  forecast  time. 

CHARACTERS)  ::  RPT_CRETM  !  Record  creation  date. 
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CHARACTER(24) ::  RPTJJDT  !  Report's  last  update  time. 

INTEGER  : :  BUFFLAG  !  0  =>  Input  is  in  FBUFF 
!  1  =>  Input  is  in  IBUFF 

INTEGER  : :  LLT_ID  !  Unique  database  LLT  identifier  for  each 
!  dataset. 

INTEGER  : :  BLKSEQID  !  Unique  database  LLT  block  identifier. 

INTEGER  : :  RECSEQED  !  Unique  database  LLT  record  identifier. 

TYPE(sfcJndJnt) ::  IBUFF 

TYPE(sfc_lnd) ::  FBUFF  !  Real  record  structure. 

c3)c**********3}esf:***9l«*  +  3le*********sle5j!***jJ:jJcj!c*5|s********4;jjt*****4:****4:********** 

c  Arguments  for  LCLOS  (that  get  "*"  for  values). 

CHARACTERS) ::  SEQTYPE_X  !  Report  type. 

CHARACTER^)  ::  VRSNNAM_X  !  Version  of  ISIS  software  used. 
CHARACTERS) ::  DSETNAMX  !  Data  set  name  used. 

CHARACTER^)  ::  SECLVL__X  !  7  character  security 
!  classification  level. 

CHARACTERS) ::  DTGJX  !  Date  Time  Group  for  write. 

c  Other  local  variables 

integer ::  levels 
integer  ::  status,  i,  status2 

seqjype  =  'sfc_lnd' !  Report  type 
istat  =  0 


I:***#************************************************************'***** 

Set  up  date  and  time  group  in  YYYYMMDDHH  format  in  DTG. 
********************************************************************** 

IF  ( LEN_TRIM(DT G)  =  10 )  THEN 
READ  (UNIT=DTG(9:10),FMT='(F2.0)',IOSTAT=STATUS)  HR 
IF  (  STATUS  =  0)  THEN 
F  (HR<  12.  )  THEN 
HR  =  0. 

ELSE 
HR  =12. 

END  F 
ELSE 

WRITE  *, '  Cannot  read  hour  ”,  DTG(9: 10), 

2  '  from  date  &  time  group TRIM(DTG) 

istat  =  -1 
RETURN 
END  F 
ELSE 

STATUS  =10 

WRITE  *,  'sfcland:  Got  date  and  time  group 

2  TRIM(DTG),' of  length', 

3  LEN_TRIM(DTG), '  but  expected  length  =  10.' 
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istat  =  -1 
RETURN 
END  IF 


i  *********************************************** ********************** 

Set  the  input  parameters  used  to  get  a  read-back  value. 
********************************************************************* 

MINDTG  =DTG;  MAXDTG  =DTG 
MINHR  =HR;  MAXHR  =HR+1 1.999 
RSN_IN  =  ’*' 

FCST_IN  =  0.0  !  Report  forecast  period  or  Tau  (normal  =  0.0) 

MINUPTM  = 

BUFFLAG  =  0  !  Want  (both)  floating  (and  integer). 

********************************************************************* 
get  the  data  from  LLT  db 

********************************************************************* 

1  =  0 
nobs  =  0 


DO  WHILE  (  STATUS  =  0 ) 

CALL  LRD(seq_type,  vrsnnam,  dsetnm,  SECLVL, 

2  MINDTG,  MINHR,  MAXDTG,  MAXHR, 

3  MfNLAT,  MAXLAT,  MINLON,  MAXLON, 

4  RSN_IN,  FCST_IN,  MINUPTM,  BUFFLAG, 

5  RPT_DTG,  RPT_HR,  RPT_LAT,  RPT_LON, 

6  RPTJRSN,  RPT_FCST,  RPT_CRETM,  RPT_UDT, 

7  LLTJD,  BLKSEQID,  RECSEQID, 

8  IBUFF,  FBUFF,  STATUS ) 

IF  ( STATUS  /=  0 )  THEN 

IF  ( STATUS  /=  100 )  THEN 
!  Ignore  normal  no-more-data  return  code 
WRITE  *, '  Read  from  ISIS  failed.  Code  = ',  STATUS,  7 
istat  =  status 
END  IF 

ELSE  !  successful  LRD 
1  =  1+1 


c***************************** ************************************** ******* 
c  pick  out  the  relevant  info  and  fill  the  array 
c  check  for  ISIS  missing  value 

c************************************************* *************** ********** 
if  (par am  =  'air_temp')  then 
if  (fbuff  %  air_temp  <  checkjval  .and. 

2  fbuff  %  air_temp_qc_id  =  1)  then 

nobs  =  nobs  +  1 
lat(nobs)  =  fbuff  %  crsejat 
lon(nobs)  =  fbuff  %  crse_lon 
obs(nobs)  =  fbuff  %  air_temp 
end  if 


else  if  (par am  =  'wnd_dir')  then 
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if  (fbuff  %  wnd_dir  <  check_val  .and. 

2  fbuff  %  wnd_qc_id  =  1 )  then 

nobs  =  nobs  +  1 
lat(nobs)  =  fbuff  %  crse_lat 
lon(nobs)  =  fbuff  %  crse_lon 
obs(nobs)  =  fbuff  %  wnd_dir 
end  if 

else  if  (param  =  ’sea_lvl_pres’)  then 
if  (fbuff  %  sea_lvl_pres  <  check_val  .and. 

2  fbuff  %  sea_lvl_pres_qc__id  =  1 )  then 

nobs  =  nobs  +  1 
lat(nobs)  =  fbuff  %  crsejat 
lon(nobs)  =  fbuff  %  crse_Jon 
obs(nobs)  =  (fbuff  %  seajvljpres)  /  100.0 
end  if 

else  if  (param  =  'wnd_spd')  then 
if  (fbuff  %  wnd_spd  <  check jval  .and. 

2  fbuff  %  wnd_qc_id  =  1 )  then 

nobs  -  nobs  +  1 
lat(nobs)  =  fbuff  %  crse_lat 
lon(nobs)  =  fbuff  %  crse_lon 
obs(nobs)  =  fbuff  %  wnd_spd 
end  if 

end  if !  param 
end  if  !  OK  status 
END  DO  !  i  loop 

IF  ( STATUS  =100)  STATUS  =  0 

write  *, 1 ' 

WRITE  *  '  Called  LRD  I, '  times.’ 

write  '  Read nobs, '  obs  of  sequence  type TRIM(SEQ_TYPE), 

2 

Close  the  dataset  (now  open  for  reading)  again. 

i^^^^t***************************************************************** 

SEQTYPE_X  =  ;  VRSNNAM_X  =  ;  DSETNAM_X  = 

SECLVL_X  =  ;  DTG_X  = 

CALL  LCLOS(SEQTYPE_X,  VRSNNAM_X,  DSETNAM_X, 

2  SECLVL_X,  DTG_X,  STATUS2) 

IF  ( STATUS2  /=  0  )  THEN 
WRITE  *, '  Could  not  close  ISIS  table. 

2  '  Error  code  is STATUS2, 

END  IF 

return 

end  subroutine  sfc_lnd_read 


139 


13.  sfcship.f90 


subroutine  sfc_ship_read(vrsnnam,  dsetnm,  seclvl,  dtg,  param. 


2  lvl,  minlat,  maxlat,  minion,  maxlon, 

3  lat.  Ion,  nobs,  obs,  istat) 

C 

C . START  PROLOGUE . 

C 


C  SCCS  IDENTIFICATION:  @(#)sfcship.f90  1 . 1  04/24/98  /h/cm/librar>'/mverif/src/sub/sfcship.f90_v 
C 

C  CONFIGURATION  IDENTIFICATION:  NONE 
C 

C  MODULE  NAME:  sfc_ship_read 
C 

C  DESCRIPTION:  subroutine  to  read  the  sfc_ship  data  and  pick 
C  out  the  obs  data  for  the  given  parameter 

C 

C  COPYRIGHT:  (c)  1 996  FLENUMMETOCCEN 

C  U.  S.  GOVERNMENT  DOMAIN 

C  ALL  RIGHTS  RESERVED 

C 

C  CONTRACT  NUMBER  AND  TITLE:  N/A 
C 

C  REFERENCES:  NONE 
C 

C  CLASSIFICATION:  Unclassified 
C 

C  RESTRICTIONS:  NONE 
C 

C  COMPUTER/OPERATING  SYSTEM 
C  DEPENDENCIES:  CrayUNICOS 

C 

C  LIBRARIES  OF  RESIDENCE:  /a/ops/bin 
C 

C  USAGE: 

C  call  sfc_ship_read(vrsnnam,  dsetnm,  seclvl,  dtg,  param, 

C  lvl,  minlat,  maxlat,  minion,  maxlon, 

C  lat.  Ion,  nobs,  obs,  istat) 

C 

C  PARAMETERS: 

C  Name  Type  Usage  Description 

C  . 

C  VRSNNAM  CFIAR*8  INPUT  lit  version  name 
C  DSETNM  CHAR*24  INPUT  data  set  name 
C  SECLVL  CHAR*  8  INPUT  classification 
C  DTG  CHAR*  10  INPUT  date  time  group  for  read 

C  PARAM  CHAR*32  INPUT  parameter 
C  LVL  REAL  INPUT  level  type 
C  MINLAT  REAL  INPUT  minimum  latitude 

C  MAXLAT  REAL  INPUT  maximum  latitude 

C  MINLON  REAL  INPUT  minimum  longitude 
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C  MAXLON  REAL  INPUT  maximum  longitude 
C  LAT  REAL(size)  OUTPUT  obs  latitude 

C  LON  REAL(size)  OUTPUT  obs  longitude 

C  NOBS  INTEGER  OUTPUT  number  of  obs 

C  OBS  REAL(size)  OUTPUT  obs  value 

C  ISTAT  INTEGER  OUTPUT  return  status 

C 

C  COMMON  BLOCKS:  N/A 
C 

C  FILES:  None 
C 

C  DATABASES:  ISIS LLT_DB 
C  Name  Table  Usage  Description 

C  . . . 

C  sfc_ship  SFC_SHTP  IN  surface  ship  obs 
C 

C  NON-FILE  INPUT/OUTPUT:  N/A 
C 

C  ERROR  CONDITIONS: 

C  CONDITION  ACTION 

C  . 

C  DTG  error  Print  err  message  &  return 

C  Error  return  from  LRD  Print  err  message 
C  Error  return  from  LCLOS  Print  err  message 
C 

C  ADDITIONAL  COMMENTS:  NONE 
C 

C . MAINTENANCE  SECTION . 

C 

C  MODULES  CALLED: 

C  Name  Description 

C  - - 

C  LCLOS  ISIS  LLT  close 
C  LEN_TRIM  Determines  the  length  of  a  string 
C  LRD  ISIS  LLT  read 

C  TRIM  Removes  the  trailing  blanks 

C 

C  LOCAL  VARIABLES  AND  Structures  are  documented  in  detail 
C  STRUCTURES:  where  they  are  defined  in  the  code 

C  within  include  files. 

C 

C  METHOD: 

C  Set  seq_type  to  'sfc_ship' 

C  See  raob_qc_read  for  the  rest. 

C 

C  INCLUDE  FILES: 

C  Name  Description 

C  -  - 

C  SFC_SHIP.H  surface  ship  header  file 
C  V_DATA.H  common  variables  for  verobs 
C 

C  COMPILER  DEPENDENCIES:  f90 
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c 

C  COMPILE  OPTIONS:  -f  fixed  -c 
C 

C  MAKEFILE:  Located  at  /a/ops/app/mverii7src/sub/makeverobsIib 
C  UNICOS  make 

C 

C  RECORD  OF  CHANGES: 

C 

C  «CHANGE  NOTICE»  Version  1 . 1  (29  Apr  1 998)  ~  Kyongsuk  Pace 
C  Initial  submission 
C 

C . END  PROLOGUE . 

C 

implicit  none 
include  ’v__data.h’ 
include  'SFC^SHIP.H' 

c***************  ********************************  *********************** 
c  formal  parameters 

c********************************************************************** 
character(8),  intent(in) ::  vrsnnam 
character(24),  intent(in)  ::  dsetnm 
character(8),  intent(in) ::  seclvl 
character(lO),  intent(in) ::  dtg 
character(32),  intent(in)  ::  param 
real,  intent(in) ::  lvl 

real,  intent(in) ::  minlat 

real,  intent(in)  ::  maxlat 

real,  intent(in) ::  minion 

real,  intent(in) ::  maxlon 

real  ::  lat(size) 

real  ::lon(size) 

integer  ::  nobs 

real  ::obs(size) 

integer  ::  istat 

c**** ****************************************************** ************ 
c  local  variables  used  as  arguments  for  LRD: 
c************************ ******* *********  ****************************** 
character(24) ::  seq_type 
real  ::  hr 

CHARACTER(  16)::  MINDT G  !  Minmum  date  and  time  group  to  read. 
CHARACTER(16) ::  MAXDTG  !  Maximum  date  and  time  group  to  read. 

REAL  : :  MINHR  !  Minmum  hour  to  read. 

REAL  : :  MAXHR  !  Maximum  hour  to  read. 

CHARACTER(16) : :  RSNJN  !  Reporting  source  name. 

REAL  : :  FCST  JN  S  Desired  forecast  "TAU". 

CHARACTER(24) : :  MINUPTM  !  Minimum  update  time. 

CHARACTER(56) ::  REMARKS  !  Description  of  data/assoc,  record. 
CHARACTER(16) ::  RPTJDTG  !  Actual  date  &  time  group  for  report. 

REAL  : :  RPT_HR  !  Reported  hour  read. 

REAL  ::  RPT_LAT  !  Reported  latitude  read. 
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REAL  ::  RPT_LON  !  Reported  longitude  read. 

CHARACTER(  1 6)  ::  RPT_RSN  !  Reported  longitude  read. 

REAL  ::  RPT_FCST  !  Reported  "TAU"  or  forecast  time. 

CHARACTERS)  ::  RPT_CRETM  !  Record  creation  date. 

CHARACTERS)  : :  RPT_UDT  !  Report's  last  update  time. 

INTEGER  : :  BUFFLAG  !  0  =>  Input  is  in  FBUFF 

!  1  =>  Input  is  in  IBUFF 

INTEGER  ::  LLT_ID  !  Unique  database  LLT  identifier  for  each 
!  dataset. 

INTEGER  ::  BLKSEQID  !  Unique  database  LLT  block  identifier. 

INTEGER  ::  RECSEQID  !  Unique  database  LLT  record  identifier. 

TYPE(sfc_ship_int)::  IBUFF  !  integer  record  structure. 

TYPE(sfc_ship)::  FBUFF  !  Real  record  structure. 

c***********************************+********************************** 
c  Arguments  for  LCLOS  (that  get  n*n  for  values). 

CHARACTERS)  ::  SEQTYPE_X  !  Report  type. 

CHARACTER^)  ::  VRSNNAM_X  !  Version  of  ISIS  software  used. 
CHARACTERS)  "  DSETNAM_X  !  Data  set  name  used. 

CHARACTER(8)  ::  SECLVL_X  !  7  character  security 
!  classification  level. 

CHARACTER(  1 6)  ::  DTG  X  !  Date  Time  Group  for  write. 

c  Other  local  variables 

£********************************************************************** 
integer ::  levels 
integer  ::  status,  i,  status2 

seqLtype  =  'sfcjship' !  Report  type 
istat  =  0 


!********************************************************************** 
!  Set  up  date  and  time  group  in  YYYYMMDDHH  format  in  DTG. 

IF  ( LEN_TRIM(DT G)  =  10 )  THEN 
READ  (UNIT=DTG(9:10),FMT='(F2.0)'>IOSTAT=STATUS)  HR 
IF  (  STATUS  =  0  )  THEN 
IF  (HR<  12. )  THEN 
HR  =  0. 

ELSE 
HR=  12. 

END  IF 
ELSE 

WRITE  *, '  Cannot  read  hour  m,  DTG(9: 10), 

2  '  from  date  &  time  group TRIM(DTG) 

istat  =  -1 
RETURN 
END  IF 
ELSE 
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STATUS  =  10 

WRITE  *,  'sfcship:  Got  date  and  time  group ', 

2  TRJMCDTG),'  of  length', 

3  LEN_TRIM(DT G), '  but  expected  length  =  1 0 . ' 
istat  =  - 1 

RETURN 
END  IF 

********************************************************************* 

Set  the  input  parameters  used  to  get  a  read-back  value. 

************  *  ******************************  ************************** 

MINDTG  =DTG;  MAXDTG  =DTG 
MINHR  =HR;  MAXHR  =  HR+1 1.999 
RSN_IN  =  '*' 

FCST_IN  =  0.0  !  Report  forecast  period  or  Tau  (normal  =  0.0) 

MINUPTM  ='*' 

BUFFLAG  =  0  !  Want  (both)  floating  (and  integer). 

********************************************************************* 
get  the  data  from  LLT  db 

********************************************************************* 

1  =  0 
nobs  =  0 


DO  WHILE  ( STATUS  =  0 ) 

CALL  LRD(seq_type,  vrsnnam,  dsetnm,  SECLVL, 

2  MINDTG,  MINHR,  MAXDTG,  MAXHR, 

3  MINLAT,  MAXLAT,  MINLON,  MAXLON, 

4  RSN_IN,  FCST_IN,  MINUPTM,  BUFFLAG, 

5  RPT_DTG,  RPT_HR,  RPT_LAT,  RPT_LON, 

6  RPT_RSN,  RPT_FCST,  RPT_CRETM  RPT_UDT, 

7  LLTJD,  BLKSEQID,  RECSEQID, 

8  IBUFF,  FBUFF,  STATUS ) 

IF  (  STATUS  /=0)  THEN 

IF  (  STATUS  /=  100 )  THEN 
!  Ignore  normal  no-more-data  return  code 
WRITE  *, '  Read  from  ISIS  failed.  Code  = ',  STATUS,  7 
istat  =  status 
END  IF 

ELSE  !  successful  LRD 
1  =  1  +  1 


c******************* ****** ************************************************* 
c  pick  out  the  relevant  info  and  fill  the  array 

c  we  want  to  use  the  qc  flag  to  discard  the  bad  obs  when  available 

c************************************************************************** 


if  (par  am  =  'air_temp’)  then 
if  (fbuff  %  air_temp  <  check_val)  then 
nobs  =  nobs  +  1 
lat(nobs)  =  fbuff  %  crsejat 
lon(nobs)  -  fbuff  %  crse_lon 


144 


obs(nobs)  =  fbuff  %  air_temp 
end  if 

else  if  (paraxn  =  'sea Jvl_pres')  then 
if  (fbuff  %  seajvl_pres  <  check_val)  then 
nobs  =  nobs  +  1 
lat(nobs)  =  fbuff  %  crsejat 
lon(nobs)  =  fbuff  %  crsejon 
obs(nobs)  =  (fbuff  %  seajvl_pres)  /  100.0 
end  if 

else  if  (par am  =  'sea Jemp')  then 
!  check  pos_qcJd  for  position  error  first 
if  (fbuff  %  pos_qc_id  =  0  .or. 

2  fbuff  %  pos_qc_id  =  1 )  then 

!sea_temp_qc  flag  of  0  or  1  is  the  only  obs  we  want  to  use 
if  ( (fbuff %  seajemp_qcjd  =  1  .or. 

2  fbuff  %  seajemp_qcjd  —  0)  or. 

3  (fbuff  %  sea_temp  <  check_val) )  then 
nobs  =  nobs  +  1 

lat(nobs)  =  fbuff  %  crsejat 
lon(nobs)  =  fbuff  %  crsejon 
obs(nobs)  =  fbuff  %  seajemp 
end  if 
end  if 

!for  inst_wav_per  (grid  parm  'peak__wav_per') 

else  if  (par am  —  'inst_wav_per')  then 
if  (fbuff  %  inst_wav_per  <  check_val)  then 
nobs  =  nobs  +  1 
lat(nobs)  =  fbuff  %  crsejat 
lon(nobs)  =  fbuff  %  crsejon 
obs(nobs)  =  fbuff  %  inst_wav_per 
end  if 

!for  inst_wav_ht_2  (grid  paim  'sig_wav_ht') 

else  if  (par am  =  ’inst_wavjLtJ>’)  then 
if  (fbuff  %  inst_wav_ht_2  <  check_val)  then 
nobs  =  nobs  +  1 
lat(nobs)  =  fbuff  %  crsejat 
lon(nobs)  =  fbuff  %  crsejon 
obs(nobs)  =  fbuff  %  inst_wav_ht_2 
end  if 

else  if  (par am  ==  ’wnd_dir')  then 
if  (fbuff  %  wnd_dir  <  check_val)  then 
nobs  =  nobs  +  1 
lat(nobs)  =  fbuff  %  crsejat 
lon(nobs)  =  fbuff  %  crsejon 
obs(nobs)  =  fbuff  %  wnd_dir 
end  if 
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else  if  (param  =  'wnd_spd')  then 
if  (fbuff%  wnd_spd  <  check_val)  then 
nobs  =  nobs  +  1 
lat(nobs)  =  fbuff  %  crse_lat 
lon(nobs)  =  fbufif%  crsejon 
obs(nobs)  =  fbuff  %  wnd_spd 
end  if 

end  if !  param 
end  if  !  OK  status 
END  DO  !  i  loop 

IF  ( STATUS  =  100  )  STATUS  =  0 
write  *, ' ' 

WRITE  *  '  Called  LRD  I, '  times.' 

write  *, '  Read nobs, 1  obs  of  sequence  type TRrM(SEQ_TYPE), 

2 

i  ************************************************************************* 

!  Close  the  dataset  (now  open  for  reading)  again. 

SEQTYPE_X  =  ;  VRSNNAMX  =  ;  DSETNAM_X  = 

SECLVL  X  =  ;  DTGJX  = 

CALL  LCLOS(SEQTYPE_X,  VRSNNAM_X,  DSETNAM_X, 

2  SECLVL_X,  DTGX,  STATUS2) 

IF  ( STATUS2  /=  0  )  THEN 
WRITE  *,  ’  Could  not  close  ISIS  table. 

2  '  Error  code  is STATUS2,  V 

END  IF 

return 

end  subroutine  sfc_ship_read 

14.  ssmetqc.f90 

subroutine  sfc_ship_met_qc_read(vrsnnam,  dsetnm,  seclvl,  dtg. 


2  param,  lvl,  minlat,  maxlat, 

3  minion,  maxlon,  lat.  Ion, 

4  nobs,  obs,  istat) 

C 

C . START  PROLOGUE . 

C 


C  sees  IDENTIFICATION:  @(#)ssmetqc.f90  1.1  04/24/98  /h/cm/library/mveriRsrc/sub/ssmetqc.f90_v 
C 

C  CONFIGURATION  IDENTIFICATION:  NONE 
C 

C  MODULE  NAME:  sfc_ship_met_qc_read 
C 

C  DESCRIPTION:  subroutine  to  read  the  sfc_ship_met_qc  data  and  pick 
C  out  the  obs  data  for  the  given  parameter 
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c 

C  COPYRIGHT:  (c)  1996  FLENUMMETOCCEN 

C  U.S.  GOVERNMENT  DOMAIN 

C  ALL  RIGHTS  RESERVED 

C 

C  CONTRACT  NUMBER  AND  TITLE:  N/A 
C 

C  REFERENCES:  NONE 
C 

C  CLASSIFICATION:  Unclassified 
C 

C  RESTRICTIONS:  NONE 
C 

C  COMPUTER/OPERATING  SYSTEM 
C  DEPENDENCIES:  CrayUNICOS 

C 

C  LIBRARIES  OF  RESIDENCE:  /a/ops/bin 
C 

C  USAGE: 

C  call  sfc_ship_met_qc_read(vrsnnam,  dsetnm,  seclvl,  dtg, 

C  param,  lvl,  minlat,  maxlat, 

c  minion,  maxlon,  lat,  Ion, 

C  nobs,  obs,  istat) 

C 

C  PARAMETERS: 


c 

c 

Name 

Type  Usage 

Description 

c 

VRSNNAM  CHAR*8 

INPUT  lit  version  name 

c 

DSETNM 

CHAR*24 

INPUT  data  set  name 

c 

SECLVL 

CHAR*8 

INPUT 

classification 

c 

DTG 

CHAR*  10 

INPUT 

date  time  group  for  read 

c 

PARAM 

CHAR*32 

INPUT 

parameter 

c 

LVL 

REAL  INPUT  level  type 

c 

MINLAT 

REAL 

INPUT 

minimum  latitude 

c 

MAXLAT 

REAL 

INPUT 

maximum  latitude 

c 

MINLON 

REAL 

INPUT 

minimum  longitude 

c 

MAXLON 

REAL 

INPUT 

maximum  longitude 

c 

LAT 

REAL(size) 

OUTPUT 

obs  latitude 

c 

LON 

REAL(size) 

OUTPUT 

obs  longitude 

c 

NOBS 

INTEGER 

OUTPUT  number  of  obs 

c 

OBS 

REAL(size) 

OUTPUT 

obs  value 

c 

ISTAT 

INTEGER 

OUTPUT  return  status 

C 

C  COMMON  BLOCKS:  N/A 
C 

C  FILES:  None 
C 

C  DATABASES:  ISIS  LLT_DB 
C  Name  Table  Usage  Description 

C  .  . 

C  sfc_ship_met_qc  SFC_SHIP_MET_QC  IN  surface  ship  met  qc  obs 
C 
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C  NON-FILE  INPUT/OUTPUT:  N/A 
C 

C  ERROR  CONDITIONS: 

C  CONDITION  ACTION 

C  - - - 

C  DTG  error  Print  err  message  &  return 

C  Error  return  from  LRD  Print  err  message 

C  Error  return  from  LCLOS  Print  err  message 
C 

C  ADDITIONAL  COMMENTS:  NONE 
C 

C . MAINTENANCE  SECTION . 

C 

C  MODULES  CALLED: 

C  Name  Description 

C  . 

C  LCLOS  ISIS  LLT  close 

C  LEN_TRIM  Determines  the  length  of  a  string 
C  LRD  ISIS  LLT  read 
C  TRIM  Removes  the  trailing  blanks 

C 

C  LOCAL  VARIABLES  AND  Structures  are  documented  in  detail 
C  STRUCTURES:  where  they  are  defined  in  the  code 

C  within  include  files. 

C 

C  METHOD: 

C  Set  seq_type  to  'sfc_ship_met_qc' 

C  See  raob_qc_read  for  the  rest. 

C 

C  INCLUDE  FILES: 

C  Name  Description 

C  . . 

C  SFC_SHIP_MET_QC.H  surface  ship  header  file 
C  V_DATA.H  common  variables  for  verobs 
C 

C  COMPILER  DEPENDENCIES:  DO 
C 

C  COMPILE  OPTIONS:  -f  fixed  -c 
C 

C  MAKEFILE:  Located  at  /a/ops/app/mverif/src/sub/makeverobslib 
C  UNICOS  make 

C 

C  RECORD  OF  CHANGES: 

C 

C  «CHANGE  NOTICE»  Version  1.1  (29  Apr  1 998)  —  Kyongsuk  Pace 
C  Initial  submission 
C 

C . END  PROLOGUE . 

C 

implicit  none 

include  'v_data.h' 

include  'SF^SHnMvfE^QC.H’ 
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g********************************************************************** 

c  formal  parameters 

g********************************************************************** 

character(8),  intent(in) ::  vrsnnam 
character(24),  intent(in) ::  dsetnm 
character(8),  intent(in) ::  seclvl 
character(lO),  intent(in) ::  dtg 
character(32),  intent(in)  ::  param 
real,  intent(in)  ::  lvl 

real,  intent(in) ::  minlat 

real,  intent(in) ::  maxlat 

real,  intent(in) ::  minion 

real,  intent(in) ::  maxlon 

real  ::  lat(size) 

real  ::  lon(size) 

integer  ::  nobs 

real  ::  obs(size) 

integer  ::  istat 

Q*  *  *  *  *  *  *  *  9|C  *  *  *  *  *  *  *  *  *  *  *  *  *  *  %  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  %  *  *  *  He  *  *  *  * 

c  local  variables  used  as  arguments  for  LRD : 

g**********  ********* *************************************************** 

character(24) ::  seqjype 
real  ::  hr 

CHARACTER^  16)::  MINDT G  !  Minmum  date  and  time  group  to  read. 

CHARACTER(16) ::  MAXDTG  !  Maximum  date  and  time  group  to  read. 

REAL  : :  MINHR  !  Minmum  hour  to  read. 

REAL  : :  MAXHR  !  Maximum  hour  to  read. 

CHARACTER(  16)::  RSNJN  !  Reporting  source  name. 

REAL  ::  FCST  JN  !  Desired  forecast  "TAU". 

CHARACTER(24) : :  MINUPTM  !  Minimum  update  time. 

CHARACTER(56) ::  REMARKS  !  Description  of  data/assoc,  record 
CHARACTER(16) ::  RPTDTG  !  Actual  date  &  time  group  for  report. 

REAL  : :  RPT_HR  !  Reported  hour  read. 

REAL  ::  RPTJLAT  !  Reported  latitude  read. 

REAL  : :  RPTJLON  !  Reported  longitude  read. 

CHARACTER(  1 6) ::  RPT_RSN  !  Reported  longitude  read. 

REAL  ::  RPTJCST  !  Reported  "TAU"  or  forecast  time. 

CHARACTER(24) ::  RPT_CRETM  !  Record  creation  date. 

CHARACTER(24) : :  RPT_UDT  !  Report's  last  update  time. 

INTEGER  : :  BUFFLAG  !  0  =>  Input  is  in  FBUFF 

!  1  =>  Input  is  in  IBUFF 

INTEGER  : :  LLT_ID  !  Unique  database  LLT  identifier  for  each 

!  dataset. 

INTEGER  : :  BLKSEQID  !  Unique  database  LLT  block  identifier. 

INTEGER  : :  RECSEQID  !  Unique  database  LLT  record  identifier. 

TYPE(sfc_ship_met_qc_int)  ::  IBUFF 
TYPE(sfc_ship_met_qc)  ::  FBUFF  !  Real  record  structure. 

g****** ******************************************************* ********* 

c  Arguments  for  LCLOS  (that  get  for  values). 
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c**  +  +  **3ic******4t*****3|ct  ************************************************* 

CHARACTERS) ::  SEQTYPE_X  !  Report  type. 

CHARACTER(8)  ::  VRSNNAM_X  !  Version  of  ISIS  software  used. 
CHARACTERS) ::  DSETNAM_X  !  Data  set  name  used. 

CHARACTER(8)  ::  SECLVL_X  !  7  character  security 
!  classification  level. 

CHARACTER(  1 6) ::  DTG  X  !  Date  Time  Group  for  write. 

c***************************** ***************** ************************ 
c  Other  local  variables 

c******** ********** ********************************* ******************* 
integer ::  levels 
integer ::  status,  i,  status2 

seqjype  =  'sfc_ship_met_qc' !  Report  type 
istat  =  0 

i  ********************************************************************** 

!  Set  up  date  and  time  group  in  YYY  YMMDDHH  format  in  DTG. 

i **************************************** ****************************** 

IF  ( LEN_TRIM(DT  G)  =10)  THEN 
READ  (UNIT=DTG(9:10),FMT='(F2.0)’,IOSTAT=STATUS)  HR 
IF  (  STATUS  =  0  )  THEN 
IF  ( HR  <  12. )  THEN 
HR  =  0. 

ELSE 
HR=  12. 

END  IF 
ELSE 

WRITE  *, '  Cannot  read  hour DTG(9: 1 0), 

2  '  from  date  &  time  group TRIM(DTG) 

istat  =  -1 
RETURN 
END  IF 
ELSE 

STATUS  =10 

WRITE  *,  'ssmetqc:  Got  date  and  time  group 

2  TRIM(DTG),'  of  length’, 

3  LEN_TRJM(DT G), 1  but  expected  length  =  10.’ 
istat  =  -1 

RETURN 
END  IF 

i ********************************************************************* 

!  Set  the  input  parameters  used  to  get  a  read-back  value. 

(♦♦♦♦♦♦I).  ************************************************************** 

MINDTG  =DTG;  MAXDTG  =DTG 
MINHR  =  HR;  MAXHR  =  HR-:-l  1.999 
RSNJN  = 

FCST_IN  =  0.0  !  Report  forecast  period  or  Tau  (normal  =  0.0) 

MINUPTM  ='*' 

BUFFLAG  =  0  !  Want  (both)  floating  (and  integer). 
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i 


!  get  the  data  from  LLT  db 

|  **  +  ********!}:********************************************************* 

1  =  0 

nobs  =  0 

DO  WHILE  (  STATUS  =  0 ) 

CALL  LRD(seqJype,  vrsnnam,  dsetnm,  SECLVL, 

2  MINDTG,  MINHR,  MAXDTG,  MAXHR, 

3  MINLAT,  MAXLAT,  MINLON,  MAXLON, 

4  RSNJN,  FCSTJN,  MINUPTM,  BUFFLAG, 

5  RPTJDTG,  RPT_HR,  RPTJAT,  RPTJLON, 

6  RPTJRSN,  RPT_FCST,  RPT_CRETM,  RPTJJDT, 

7  LLTJD,  BLKSEQID,  RECSEQID, 

8  IBUFF,  FBUFF,  STATUS ) 

IF  (  STATUS /=0)  THEN 

IF  (  STATUS /=  100)  THEN 
!  Ignore  normal  no-more-data  return  code 
WRITE  *, '  Read  from  ISIS  failed.  Code  = STATUS, 
istat  =  status 

END  IF 

ELSE  !  successful  LRD 

1  =  1  +  1 

c  pick  out  the  relevant  info  and  fill  the  array 
c  we  want  to  use  the  qc  flag  to  discard  the  bad  obs 

if  (par  am  =  'airjemp’)  then 
if  (fbuff  %  airjemp  < check_val  .and. 

2  fbuff  %  air _temp_qc_id  =  1)  then 

nobs  =  nobs  +  1 
lat(nobs)  =  fbuff  %  crsejat 
lon(nobs)  =  fbuff  %  crse_lon 
obs(nobs)  =  fbuff  %  airjemp 
end  if 

else  if  (par am  =  'seajvlj)res')  then 
if  (fbuff  %  sea_lvl_pres  <  check_val  .and. 

2  fbuff  %  sea_lvl_pres_qc_id  =  1 )  then 

nobs  =  nobs  +  1 
lat(nobs)  =  fbuff  %  crse_lat 
lon(nobs)  =  fbuff  %  crse__lon 
obs(nobs)  =  (fbuff  %  seajvl_pres)  /  100.0 
end  if 

else  if  (par am  —  'sea_temp')  then 
if  (fbuff  %  sea_temp  <  check__val  .and. 

2  fbuff  %  sea_temp_qc_id  =  1 )  then 

nobs  =  nobs  +  1 
lat(nobs)  =  fbuff  %  crsejat 
lon(nobs)  =  fbuff  %  crsejon 
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obs(nobs)  =  fbuff  %  sea_temp 
end  if 

else  if  (par am  =  ’wnd_dir’)  then 
if  (fbuff  %  wnd_dir  <  check_val  .and. 

2  fbuff  %  wnd_qc_id  =  1 )  then 

nobs  =  nobs  +  1 
lat(nobs)  =  fbuff  %  crse_lat 
lon(nobs)  =  fbuff  %  crse_lon 
obs(nobs)  =  fbuff  %  wnd_dir 
end  if 

else  if  (par am  =  ’wnd_spd')  then 
if  (fbuff  %  wnd_spd  <  check_val  .and. 

2  fbuff  %  wnd_qc_id  =  1 )  then 

nobs  =  nobs  +  1 
lat(nobs)  =  fbuff  %  crsejat 
lon(nobs)  =  fbuff  %  crsejon 
obs(nobs)  =  fbuff  %  wnd_spd 
end  if 

end  if !  par  am 
end  if  !  OK  status 
END  DO  !  i  loop 

IF  ( STATUS  =  100 )  STATUS  =  0 
write  *,  ’  ’ 

WRITE  *,  •  Called  LRD  \  I,  ’  times.’ 

write  *, '  Read  nobs,  ’  obs  of  sequence  type TRIM(SEQ_T  YPE), 
2 

Close  the  dataset  (now  open  for  reading)  again. 

SEQT YPE_X  =  ;  VRSNNAM_X  =  ;  DSETNAM_X  = 

SECLVL_X  =  ;  DTG_X  = 

CALL  LCLOS(SEQTYPE_X,  VRSNNAM_X,  DSETNAM_X, 

2  SECLVL_X,  DTG__X,  STATUS2) 

IF  (  STATUS2  /=  0 )  THEN 
WRITE  *  '  Could  not  close  ISIS  table. 

2  ’  Error  code  is STATUS2, 

END  IF 

return 

end  subroutine  sfc_ship_met_qc_read 
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B.  STATLIB 


1.  Compute  bias  module 

SUBROUTINE  COMPUTE_BIAS  (array  1,  array2, 

2  arrsize,  geomname,  bias) 

C 

C . START  PROLOGUE . 

C 

C  sees  IDENTIFICATION:  @(#)fmd-bias.f90  1.1  04/24/98  /h/cm/libraiy/mvenf/src/sub/fmd-bias.f90_v 
C 

C  CONFIGURATION  IDENTIFICATION:  NONE 
C 

C  MODULE  NAME:  compute_bias 
C 

C  DESCRIPTION:  subroutine  to  compute  the  bias  (mean  error) 

C 

C  COPYRIGHT:  (c)  1 998  FLENUMMETOCCEN 

C  U.S.  GOVERNMENT  DOMAIN 

C  ALL  RIGHTS  RESERVED 

C 

C  CONTRACT  NUMBER  AND  TITLE:  N/A 
C 

C  CLASSIFICATION:  Unclassified 
C 

C  RESTRICTIONS:  NONE 
C 

C  COMPUTER/OPERATING  SYSTEM 
C  DEPENDENCIES:  CrayUNICOS 

C 

C  LIBRARIES  OF  RESIDENCE:  /a/ops/bin 
C 

C  USAGE: 

C  call  compute_bias(  array  1 ,  array2,  arr_size,  geomname,  bias) 

C 

C  PARAMETERS: 

C  Name  Type  Usage  Description 

C  . . 

C  arrayl  REAL(360*181)  INPUT  first  array 

C  array2  REAL(360*181)  INPUT  second  array 

C  arr_size  INTEGER  INPUT  array  size 
C  geomname  CHAR*32  INPUT  geometry  name 

C  bias  REAL  OUTPUT  computed  bias 
C 

C  COMMON  BLOCKS:  N/A 
C 

C  FILES:  None 
C 

C  ERROR  CONDITIONS: 

C  CONDITION  ACTION 
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c  - -  - 

c 

C  ADDITIONAL  COMMENTS:  NONE 
C 

C . MAINTENANCE  SECTION . 

C 

C  MODULES  CALLED: 

C  Name  Description 
C  . . 

C  FIND_MAP_FACT  determine  the  map  factor  for  the  geometry 
C 

C  LOCAL  VARIABLES  AND  Structures  are  documented  in  detail 
C  STRUCTURES:  where  they  are  defined  in  the  code 

C  within  include  files. 


C  METHOD: 

C 

C  INCLUDE  FILES:  NONE 
C 

C  COMPILER  DEPENDENCIES:  f90 
C 

C  COMPILE  OPTIONS:  -f  fixed  -c 
C 

C  MAKEFILE:  Located  at  /a/ops/app/mverif/src/sub/makestatlib 
C  UNICOS  make 

C 

C  RECORD  OF  CHANGES: 

C 

C  «CHANGE  NOTICE»  Version  1 . 1  (29  Apr  1998)  -  Kyongsuk  Pace 
C  Initial  submission 
C 

C . END  PROLOGUE . 

C 

I *********************************************************** 


!  formula  used: 

!  (array  1  -  array2)  /  arr_size 
!  [(array  1  -  array2)  *  xmap_factor  *  ymap_factor] 

!  /  [4*pi*a_square] 

I*********************************************************** 

implicit  none 


integer::  im,  jm,  imjm 
parameter  (im  =  360) 
parameter(jm  =181) 
parameter  (imjm  =  im  *  jm) 


i*********************************************************** 


! formal  parameter 

j*********************************************************** 


real,  intent(in) 
real,  intent(in) 
integer,  intent(in) 
character(32) 


::  array  1  (imjm) 
::  array2(imjm) 
::  arr_size 
::  geomname 
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ooooooopo 


real 


::  bias 


llocal  var 

i *********************************************************** 

integer ::  i 
integer ::  lengeom 
real  : :  sum,  dif,  sumx 

real  : :  xmap_factor(imjm),  ymap_factor(imjm) 
real  ::  pi,  a_square 
integer  strlen 

pi  =  2.0  *  asin(l.O) 
a_square  =  (6.375e+06)  **  2 
sum  =  0. 
dif  =0. 

if  (geomname(l  :4)  /=  ’NONE’)  then 
write  *,  "calling  find-map-factor  from  find-bias  for ", 

2  geomname 

CALL  FIND_MAP_FACTOR(geomname,  xmap_factor,  ymap_factor) 
do  i  =  1,  arr_size 
dif  =  (array l(i)  -  array2(i)) 

2  *  xmap_factor(i)  *  ymap_factor(i) 

sum  =  sum  +  dif 
end  do 

bias  =  sum  /  (4*pi*a_square) 
else 

doi=  1,  arrjsize 
dif  =  array  1  (i)  -  array2(i) 
sum  =  sum  +  dif 
end  do 

bias  =  sum  /  arr_size 
end  if 

return 

END  SUBROUTINE  COMPUTE  JBIAS 

2.  Computerms 

SUBROUTINE  COMPUTE  JRMS  (array  1,  array2, 

2  arr_size,  geomname,  rms) 

. START  PROLOGUE . 

SCCS  IDENTIFICATION:  @(#)find-rms.f90  LI  04/24/98  /h/cm/library/mverifrsrc/sub/find-rms.^ 
CONFIGURATION  IDENTIFICATION:  NONE 
MODULE  NAME:  compute_rms 
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C  DESCRIPTION:  subroutine  to  compute  the  rms 
C 

C  COPYRIGHT:  (c)  1 998  FLENUMMETOCCEN 

C  U.S.  GOVERNMENT  DOMAIN 

C  ALL  RIGHTS  RESERVED 

C 

C  CONTRACT  NUMBER  AND  TITLE:  N/A 
C 

C  CLASSIFICATION:  Unclassified 
C 

C  RESTRICTIONS:  NONE 
C 

C  COMPUTER/OPERATING  SYSTEM 
C  DEPENDENCIES:  CrayUNICOS 

C 

C  LIBRARIES  OF  RESIDENCE:  /a/ops/bin 
C 

C  USAGE: 

C  call  compute_rais(  array  1 ,  array2,  arr_size,  geomname,  rms) 

C 

C  PARAMETERS: 

C  Name  Type  Usage  Description 

C  . 

C  array  1  REAL(360*181)  INPUT  first  array 

C  array2  REAL(360*181)  INPUT  second  array 

C  arr_size  INTEGER  INPUT  array  size 
C  geomname  CHAR*32  INPUT  geometry  name 

C  rms  REAL  OUTPUT  computed  rms 
C 

C  COMMON  BLOCKS:  N/A 
C 

C  FILES:  None 
C 

C  ERROR  CONDITIONS: 

C  CONDITION  ACTION 

C  . . 

C 

C  ADDITIONAL  COMMENTS:  NONE 
C 

C . MAINTENANCE  SECTION . 

C 

C  MODULES  CALLED: 

C  Name  Description 
C  . 

C  FIND_MAP_FACT  determine  the  map  factor  for  the  geometry 
C 

C  LOCAL  VARIABLES  AND  Structures  are  documented  in  detail 
C  STRUCTURES:  where  they  are  defined  in  the  code 

C  within  include  files. 

C  METHOD: 

C 

C  INCLUDE  FILES:  NONE 
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c 

C  COMPILER  DEPENDENCES:  f90 
C 

C  COMPEE  OPTIONS:  -f  fixed -c 
C 

C  MAKEFEE:  Located  at  /a/ops/app/mverif/src/sub/makestatlib 
C  UNICOSmake 

C 

C  RECORD  OF  CHANGES: 

C 

C  «CHANGE  NOTICE»  Version  1 . 1  (29  Apr  1 998)  -  Kyongsuk  Pace 
C  Initial  submission 
C 

C . END  PROLOGUE . 

C 

| ******************************************************** 
!sqrt[(arrayl  -array2)**2/arr_size] 

!  sqrt [(array  1  -array2)  *  *  2  *xmap_factor  *ymap_factor] 

!  /  [4*pi*a_square] 

j  ******************************************************** 

implicit  none 

integer::  im,  jm,  imjm 
parameter  (im  =  360) 
parameter(jm  =181) 
parameter(imjm  =  im  *  jm) 

| ********************************************* *********** 
[formal  parameters 

i *  *  *  *  * * ************************************************** 

real,  intent(in) : :  array  1  (imjm) 

real,  intent(in) ::  array2(imjm) 

integer,  intent(in) ::  arr_size 
character(32),  intent(in) ::  geomname 
real  ::  rms 

i ******* ************************************** *********** 

[local  var 

I******************************************************** 

integer ::  i 

real  ::  xmap_factor(imjm),  ymap_factor(imjm) 
real  ::  sum,  dif,  sumx,  difx 
real  ::  pi,  a_square 

pi  =  2.0  *  asin(l.O) 
a_square  =  (6.375e+06)  **  2 
difx  =  0. 
sumx  =  0. 

if  (geomname(l  :4)  /=  'NONE')  then 
CALL  FIND_MAP_FACTOR(geomname,  xmap_factor,  ymap_factor) 
do  i  =  1,  arr_size 


157 


difx  =  (array  l(i)  -  array2(i))**2 
2  *  xmap_factor(i)  *  ymap_factor(i) 

sumx  =  sumx  +  difx 
end  do 

rms  =  sqrt(sumx)  /  (4*pi*a_square) 
else 

doi=  1,  arr_size 
difx  =  (array l(i)  -  array2(i))**2 
sumx  =  sumx  +  difx 
end  do 

rms  =  sqrt(sumx  /  arr_size) 
end  if 

return 

END  SUBROUTINE  COMPUTE_RMS 

3.  Computestd 

SUBROUTINE  COMPUTE_STD  (array  1,  array2, 

2  arrjsize,  geomname,  std) 

C 

C . START  PROLOGUE . 

C 

C  sees  IDENTIFICATION:  @(#)fmd-std.f90  1.1  04/24/98  /h/cm/library/mveriRsrc/sub/find-std.f90_v 
C 

C  CONFIGURATION  IDENTIFICATION:  NONE 
C 

C  MODULE  NAME:  compute_std 
C 

C  DESCRIPTION:  subroutine  to  compute  the  std 
C 

C  COPYRIGHT:  (c)  1 998  FLENUMMETOCCEN 

C  U.  S.  GOVERNMENT  DOMAIN 

C  ALL  RIGHTS  RESERVED 

C 

C  CONTRACT  NUMBER  AND  TITLE:  N/A 
C 

C  CLASSIFICATION:  Unclassified 
C 

C  RESTRICTIONS:  NONE 
CC  COMPUTER/OPERATING  SYSTEM 
C  DEPENDENCIES:  CrayUNICOS 

C 

C  LIBRARIES  OF  RESIDENCE:  /a/ops/bin 
C 

C  USAGE: 

C  call  compute_std(  array  1 ,  array2,  arr_size,  geomname,  std) 

C 

C  PARAMETERS: 

C  Name  Type  Usage  Description 
C  . 
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C  arrayl  REAL(360*181)  INPUT  first  array 

C  array2  REAL(360*181)  INPUT  second  array 

C  arr_size  INTEGER  INPUT  array  size 
C  geomname  CHAR*  3  2  INPUT  geometry  name 

C  std  REAL  OUTPUT  computed  std 
C 

C  COMMON  BLOCKS:  N/A 
C 

C  FILES:  None 
C 

C  ERROR  CONDITIONS: 

C  CONDITION  ACTION 

C  . 

c 

C  ADDITIONAL  COMMENTS:  NONE 
C 

C . MAINTENANCE  SECTION . 

C 

C  MODULES  CALLED: 

C  Name  Description 
C  - - - 

C  FIND_MAP_FACT  determine  the  map  factor  for  the  geometry 
C 

C  LOCAL  VARIABLES  AND  Structures  are  documented  in  detail 

C  STRU CTURES :  where  they  are  defined  in  the  code 

C  within  include  files. 

C  METHOD: 

C 

C  INCLUDE  FILES:  NONE 
C 

C  COMPILER  DEPENDENCIES:  f90 
C 

C  COMPILE  OPTIONS:  -f  fixed -c 
C 

C  MAKEFILE:  Located  at  /a/ops/app/mverif/src/sub/makestatlib 
C  UNICOSmake 

C 

C  RECORD  OF  CHANGES: 

C 

C  «CHANGE  NOTICE»  Version  1 . 1  (29  Apr  1 998)  -  Kyongsuk  Pace 
C  Initial  submission 
C 

C . END  PROLOGUE . 

C 

!sqrt[{(arrayl-array2)**2/arr_size}  - 
!  { ((arrayl  -array2)/arr_size)*  *2}] 

!sqrt[{(arrayl-array2)**2*xmap_factor*ymap_factor} 

!  -{((arrayl  -array2)*xmap_factor*ymap_factor)**2}] 

!  /  [4*pi*a_square] 

I********************************************************* 

implicit  none 
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integer::  imjm,  imjm 
parameter(im  =  360) 
parameter(jm  =181) 
parameter(imjm  =  im  *  jm) 

1********+************ ******************** **************** 

iformal  parameter 

i********************************************************* 

real,  intent(in)  : :  array  1  (imjm) 

real,  intent(in)  ::  array2(imjm) 

integer,  intent(in)  ::  arr_size 
character(32),  intent(in) ::  geomname 
real  ::  std 

I********************************************************* 

!  local  var 

i ********************************************************* 

integer ::  i 

real  : :  xmap_factor(imjm),  ymap_factor(imjm) 
real  ::  sum,  dif,  sumx,  difx 
real  ::  pi,  a_square 

pi  =  2.0  *  asin(l.O) 

a_square  =  (6.375e+06)  **  2 

sum  =  0. 

dif  =  0. 

difx  =  0. 

sumx  =  0. 

if  (geomname(l  :4)  /=  ’NONE')  then 
CALL  FIND_MAP_FACTOR(geomname,  xmap_factor,  ymap_factor) 
do  i  =  1 ,  arr_size 
dif  =  (arrayl  (i)  -  array2(i)) 

2  *  xmap_factor(i)  *  ymap_factor(i) 

difx  =  (arrayl®  -  array2(i))**2 
2  *  xmap_factor(i)  *  ymap_factor(i) 

sum  =  sum  +  dif 
sumx  =  sumx  +  difx 
end  do 

std  =  sqrt(sumx  /  4*pi*a_square  -  (sum  /  (4*pi*a_square))**2) 
else 

do  i  =  1,  arr_size 
dif  =  arrayl  (i)  -  array2(i) 
sum  =  sum  +  dif 
difx  =  (arrayl  (i)  -  array2(i))**2 
sumx  =  sumx  +  difx 
end  do 

std  =  sqrt(sumx/arr__size  -  (sum/arr_size)**2) 
end  if 

return 
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END  SUBROUTINE  COMPUTE  STD 


C.  GRAPHICS 


1.  Plotdata.pro 

pro  plot_data 

;  setup  color  chart 

COMMON  colors,  r_orig,  g_orig,  b_orig,  r_curr,  g_curr,  b_curr 

maxcol  =  !D.N_COLORS 

r_cuir  =  bindgen(maxcol) 

g_curr  =  r_curr 

b_curr  =  r_curr 

;  wht,gm,gry,wht,tur,blu,ylw,pur,blk,red 
r_curr  =  [255,  0,211,255,  0,  0,255,55,  0,255] 
g_cuir=  [255,100,21 1,255,200,  0,255,  0,  0,  0] 
b_curr  =  [255,  0,211,255,230,255,  0,55,  0,  0] 

.****************************************************** 
;  to  graph  on  the  screen,  must  have  the  DISPLAY  env  set 

.  *  *  $  $  $  *  *  *  s|c  *  *  *  ajc  *  *  +  *  *  *  *  sje  *  *  *  s|s  sje  *  *  *  *  *  jjc  sjc  *  sjs  *  *  %  *  *  *  *  *  *  * *  *  *  *  *  *  *  *  $ 

;TVLCT,  r__curr,  g_curr,  b_curr 

;integers 
nColors  =  0 
nHeader  =  0 
nRecords  =  0 
nmatch  =  0 
fcstPer  =  0 

;floats 
sng  =  0.0 
level  1  =0.0 
minrange  =  0.0 
maxrange  =  0.0 

;strings 
filename  = " 
str  =  " 

strFormat  = " 
strHeader  = " 
strLegend  = " 
param  = " 
obType  =  " 
geomName  =  ” 
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modelName  -  ” 
name  = " 
yname  = " 

structures 

datLine  =  {dat,  v_dtg:' nobs:0,  parm:’  units:' $ 
geom:' typlvl:' lvl_l  :0.0,  tau:0,  $ 
typstat:’ stat__val:0.0,  v_src:'  obs_type:' '} 

strFmt  =  '(alO,  2x,  i5,  a20,  al5,  a30,  al5,  f8.2,  i5,  a!5,  f8.2,  alO,  a25)' 

t********************t**+************* ************* 

;  get  the  env  vars  and  data  filename 

.  ****************************************** ***** ******* 

param  =  GETENV(,PARM_NAME,) 
level  1  =  GETEN  V  ('L  VL_  1 ') 
fcstPer  =  GETENVCFCSTPER') 
obType  =  GETENV('OBSTYPE') 
geomName  =  GETENV('GEOM_NAME') 
modelName  =  GETENVCMODEL') 
filename  =  GETENV('FILENAME,) 

;  determine  the  number  of  records  in  the  data  file 
data=READ_ASCII(fileName,  count=nRecords) 
print,  "record  count  = ",  nRecords 

;array  declarations 

fields  =  replicate(datLine,  nRecords) 

bias  =  replicate(datLine,  nRecords) 

std  =  replicate(datLine,  nRecords) 

rms  =  replicate(datLine,  nRecords) 

stdl  =  FLTARR(nRecords) 

std2  =  FLTARR(nRecords) 

strDTG  =  STRARR(nRecords) 

lonDTG  =  FLTARR(nRecords,  /NOZERO) 

numObs  =  INI  ARR(nRecords) 

openr,  10,  filename 

for  n-0,  nRecords- 1  do  begin 
READF,  10,  datLine,  FORMAT=strFmt 
fields[n]  =  datLine 
endfor 

close,  10 

fields  =  fields(SORT(fields[*].v_dtg)) 

.**3*c*5|c  +  **3|e********************************************* 

* 

;  get  the  sub  arrays 

.****************************************************** 
bias  =  fields [WHERE((STRTRIM(fields[*]  .parm)  EQ  param)  and  $ 
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(fields[*].lvlj  EQ  level  1)  and  $ 

(STRTRIM(fields[*].geom)  EQ  geomName)  and  $ 

(fields[*].tau  EQ  fcstPer)  and  $ 

(STRTRJM(fields[*].obs_type)  EQ  obType)  and  $ 
(STRTRM(fields[*].typstat)  EQ  ’bias'),  nmatch)] 
start_date  -  JULDAY(STRMID(bias[0].v_dtg,4,2),  $ 

STRM3D(bias[0].v_dtg,6,2),  $ 

STRMID(bias  [0] : v_dtg,0,4)) 

end_date  =  JULDAY(STRMID(bias[nmatch-l].v_dtg,4,2)J  $ 
STRMID(bias[nniatch-l].v_dtg,652),  $ 

STRMID(bias[nmatch- 1  ] : v_dtg,0,4)) 
start_time  =  FIX(STRMID(bias[0].v_dtg,8,2))  /  24. 
end__time  =  (end_date  -  start_date)  $ 

+  (FLOAT(STRMTD(bias[nmatch-l].v_dtg,8,2)))  /  24. 

for  n=0,  nmatch- 1  do  begin 
end_datel  =  JULDAY(STRMID(bias[n].v_dtg,4,2)5  $ 

STRME)(bias[n].v_dtg,6,2),  $ 

STRMID(bias[n].v_dtg,0,4)) 
end_timel  =  (end_datel  -  start_date)  $ 

+  (FLOAT(STRME)(bias[n].v_dtg,8,2)))  /  24. 
lonDTG[n]  =  (end_timel  -  start_time)  +  start_time 
numObs[n]  =  bias  [n].  nobs 
endfor 

std  =  fields[WHERE((STRTRIM(fields[*].parm)  EQ  param)  and  $ 

(fields[*].lvM  EQ  level  1)  and  $ 

(STRTRIM(fields  [*] .  geom)  EQ  geomName)  and  $ 

(fields[*].tau  EQ  fcstPer)  and  $ 

(STRTRIM(fields[*].obs_type)  EQ  obType)  and  $ 

(STRTRIM(fields[*]  .typstat)  EQ  'std'),  nmatch)] 
rms  =  fieldsnVHERE((STRTRIM(fields[*].parm)  EQ  param)  and  $ 

(fields[*].lvl_l  EQ  level  1)  and  $ 

(STRTRIM(fields[*].geom)  EQ  geomName)  and  $ 

(fields[*].tau  EQ  fcstPer)  and  $ 

(STRTRIM(fields[*].obs_type)  EQ  obType)  and  $ 
(STRTRIM(fields[*].typstat)  EQ  'rms'),  nmatch)] 

for  n=0,  nmatch- 1  do  begin 
stdl[n]  =  bias[n].stat_val  +  std[n].stat_val 
std2[n]  =  bias[n].stat_val  -  std[n].stat_val 
endfor 

dummy  =  LABEL_D  ATE(D  ATE_F  ORMAT  =  '%HZ  %D%M  %Z',  offset=start_date) 
i  =  nmatch  - 1 

.****************************************************** 

5 

;  plot  the  data 

.****************************************************** 

» 

;  title  string 

.****************************************************** 

> 
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if  STRTRIM(bias[0].typlvl)  EQ  'isbrjvl'  then  $ 
name  =  modelName  +  *, '  +  geomName  +  '  +  par  am  +  '!C  $ 

+  STRTRIM(STRING(bias[0].!vM))  $ 

+  ’mb,  ’  +  STRTRIM(STRING(fcstPer))  +  ’  hrs,  ’  +  obType  $ 

else  $ 

name  =  modelName  + +  geomName  + '  +  param  +  ’!C’  $ 

+  STRTRIM(STRING(bias[0] . lvl__  1 ))  $ 

+  'm,’  +  STRTRIM(STRING(fcstPer))  +  ’  hrs, '  +  obType 

yname  =  bias [i]. units  ;  y-axis  title  string 
minrange  =  MIN(bias  [0 :  i] .  statjval) 
if  (MIN(std2[0:i])  LT  minrange)  then  $ 
minrange  =  MIN(std2[0:i]) 
if  (MIN(rms[0:i]. statjval)  LT  minrange)  then  $ 
minrange  =  MTN(rms  [0 :  i] .  stat_val) 
maxrange  =  MAX(bias[0:i].stat_val) 
if  (MAX(stdl  [0:i])  GT  maxrange)  then  $ 
maxrange  =  MAX(stdl  [0:i]) 
if  (MAX(rms[0:i].stat_val)  GT  maxrange)  then  $ 
maxrange  =  MAX(rms[0:i].stat_val) 

.  ******************* ************** ********* ************ 
;  for  debugging 

.*******  **********************  ************************* 

;print,  "std" 

;print,  std[0:i].stat__val 
;print,  "rms" 

;print,  rms[0:i].stat_val 

;print,  "graph  range  lies  between  ",  minrange, "  and ",  maxrange 
;print,  "lonDtg" 

;print,  lonDTG[0:i] 

;print,  "bias" 

;print,  bias[0:i] 

;print,  "stdl" 

;print,  stdl  [0:i] 

;print,  Mstd2" 

;print,  std2[0;i] 

IX.MINOR  =  -1  ;suppress  minor  tick  marks 
!Y.MARGIN(1)  =  3  ;top  margin 

.****************************************************** 
;  to  create  a  post  script  file 

.********* ******************************** ************* 
;set__plot,  'PS' 

;psfile  =  filename  +  ’.ps’ 

;device,  /color,  filename=psfile 

.****************************************************** 
;  to  create  a  gif  file 

.****************************************************** 
set_plot,  'Z’ 
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psfile  =  filename  +  '.gif 


PLOT,  lonDTG[0:i],  bias[0:i].stat_val,  $ 

YRANGE  =  [minrange,  maxrange],  $ 

TITLE  =  name,  PSYM  =  -2,  SYMSIZE  =  1 .,  $ 

XTITLE  =  'Forecast  Date',  $ 

YTITLE  =  yname,  $ 

XGRIDSTYLE  =  1 ,  YGRIDSTYLE  =  1 ,  $ 

XTICKLEN  =  1 .0,  YTICKLEN  =1.0,$ 

XTICKFORMAT  =  "label_date",  $ 

XCHARSIZE  =  0.7,  $ 

MAX_VALUE  =  30,  $ 

COLOR  =  5,  XSTYLE  =  2,  /DEVICE,  /NODATA 
for  n=l,i  do  begin 

POLYFILL,  [lonDTG(n-l),  lonDTG[n-l:n],  lonDTG(n)],  $ 

[bias[n-l].stat_val,  stdl  [n-1  :n],  bias[n].stat_val],  COLOR=2 

endfor 

for  n=l,i  do  begin 

POLYFILL,  [lonDTG(n-l),  lonDTG[n-l  :n],  lonDTG(n)],  $ 

[bias[n-l].stat_val,  std2[n-l:n],  bias[n].stat_val],  COLOR=2 

endfor 

;  overplot  the  bias 

OPLOT,  lonDTG[0:i],  bias[0:i].stat_val,  PSYM  =  -2,  SYMSIZE  =  1.,  $ 
LINE  =  0,  COLOR  =  5,  MAX_VALUE  =  30 

;  overplot  the  stdl 

OPLOT,  lonDTG[0:i],  stdl  [0:i],  PSYM  =  -6,  SYMSIZE  =  1.,  $ 

LINE  =  0,  COLOR  =  9,  MAX_VALUE  =  30 

;  overplot  the  std2 

OPLOT,  lonDTG[0:i],  std2[0:i],  PSYM  =  -6,  SYMSIZE  =  1 .,  $ 

LINE  =  0,  COLOR  =  9,  MAX_VALUE  =  30 

;  overplot  the  rms 

OPLOT,  lonDTG[0:i],  rms[0:i].stat_val,  PSYM  =  -4,  SYMSIZE  =  1.,  $ 
LINE  =  0,  COLOR  =  7,  MAX_VALUE  =  30 

;  add  the  legends 

XYOUTS,  0.8, 0.16,  '!5*  -  bias',  color  =  5,  /NORMAL ;  legend 
XYOUTS,  0.8, 0.13,  '!MB  -  std',  color  =  9,  /NORMAL  ;legend 
XYOUTS,  0.8, 0.1,  '!MV  -  rms',  color  =  7,  /NORMAL  ;legend 

image  =  TVRD0 
WRITE_GIF,  psfile,  image 

^DEVICE,  /close_file 
SET_PLOT,  'X' 

END 
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D.  USER  INTERFACE 


1.  Index.html 


<html> 

<!— 

Author:  Susie  Pace 
Date:  25  March  1998 

File  URL:  model_reports/mverif/index.html 
— > 


<head><title>FNMOC  Model  Statistics  Display  </title></head> 

<body  bgcolor="#191970"  TEXT=”#F5F5DC"  LINK="#00FF7F" 
VLINK="#CCCC66"  ALINK="#FF0000"> 

<FONT  SIZE=+1> 

<hlxcenter>Pick  a  model  to  see  the  statistics.</center></hl> 

<UL> 

<A  HREF="nogaps.html">  NOGAPS</A></P> 

<AHREF="noraps_asia.html">NORAPS_ASIA</A></P> 

<AHREF="noraps_conus.html">NORAPS_CONUS</A></P> 

<AHREF="noraps_europe.html">NORAPS_EUROPE</A></P> 

<AHREF="noraps_ind_ocn.html">NORAPS_IND_OCN</A></P> 

<A  HREF="coamps_europe.html">CO  AMP  S_EUROPE</A></P> 
<AHREF="coamps_swasia.htmT>COAMPS_SOUTHWEST_ASIA</A></P> 
<A  HREF- 'wam.htmT'>WAM_GLOBAL</A></P> 

</UL> 

<HR> 

<CENTER><FONT  size="-r><I>  Send  Comments  Or  Suggestions  To 
Susie  Pace:  <A  HREF="mailto:pacek@fhmocmavy.mil"> 
pacek@£nmoc.navy.mil</A> 

<BR>  Last  Update  Was  On  March  25,  1 998  </l></FONT></CENTER> 

</BODY> 

</HTML> 


2.  Nogaps.html 


<html> 

<!-- 

Author:  Susie  Pace 
Date:  25  March  1998 

File  URL:  model_reports/mverif7nogaps.html 
— > 


<headxtitle>NOGAPS  Verification  Display  </title></head> 

<body  bgcolor="#l 9 1 970”  TEXT="#00fl7f  LINK="#OOFF7F"  VLINK="#CCCC66" 
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ALINK="#FFOOOO  "> 

<form  method=GET  action="http  ://devu  1  /cgi-bin/space3  .plM> 


<hl><center>Makeyour  selections  to  see  the  statistics.</center></hl> 

<h3>Model:  </h3> 

cinput  type=radio  name=model  value-'nogaps"  checked>nogaps 
<h3>Geometiy:</h3> 

cinput  type=radio  name=geometry  value="global_360xl81"  checked> glob al_3 60x1 8 1 
<input  type=radio  name=geometry  value- '  asia_nest  1  _appl">  asia_nestl_appl 
<input  type=radio  name=geometry  value="conus_nestl__appl">  conus_nestl_appl 
<input  type=radio  name=geometiy  value=,,europe_nestl__appl">europe_nestl_appl 
<input  type=radio  name=geometry  value="europe_nest2_appl2">  europe_nest2__appl2 
<input  type=radio  name=geometiy  value="europe__nest3_appl3">europe_nest3_appl3 
<input  type=radio  name=geometry  value-'  ind_ocn  jiest  1  _appl  ">ind_ocn_nest  1  _appl 
<!— <input  type=radio  name-geometry  value- 'southwest_asia_nest2_appr>southwest_asia_nest2_appl 
<input  type=radio  name=geometry  value="southwest_asia_nest3_appr,>southwest_asia_nest3_appl 
— > 

<h3>Parameters:</h3> 

<input  type=radio  name=parameter  value- '  airjemp  ”>  air_temp 
<input  type=radio  name=parameter  value-' geop_ht"  checked>  geop__ht 
<input  type=radio  name=parameter  valuer  "pres  ">  pres 
<input  type=radio  name=parameter  value="wnd_spd">  wnd__spd 

<h3>Taus:</h3> 

<input  type=radio  name=tau  value="0">  0 
<input  type=radio  name=tau  value- '  1 2">  1 2 
<input  type=radio  name=tau  value- ’24"  checked>  24 
<input  type=radio  name=tau  value=,,36">  36 
<input  type=radio  name=tau  value="48">  48 
<input  type=radio  name=tau  value="60">  60 
cinput  type=radio  name=tau  value- '72">  72 
cinput  type=radio  name=tau  value=,,84">  84 
cinput  type=radio  name=tau  value="96">  96 
cinput  type=radio  name^au  value- '  1 08">  108 
cinput  type=Tadio  name=tau  value—"  1 20">  1 20 
cinput  type=radio  name=tau  value-'  1 32">  1 32 
cinput  type=radio  name=tau  value="  1 44  ">  1 44 

ch3>Levels:  </h3> 

cinput  type=radio  name=level  value- '0">0 
cinput  type=radio  name=level  value="2">2 
cinput  type=radio  name=level  value- '19. 5">1 9.5 
cinput  type=radio  name=level  value- '  1 000">  1 000 
cinput  type=radio  name=level  value-’925">925 
cinput  type=radio  name=level  value="850">850 
cinput  type=Tadio  name=level  value- '700">700 
cinput  type=radio  name=level  value="500"  checked>500 
cinput  type=radio  name=level  value- ’400">400 
cinput  type=radio  name=level  value="300">300 
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<input  type=radio  name=level  value="250">250 
<input  type=radio  name=level  value- '200">200 
<input  type=radio  name=level  value=”150">150 
<input  type=radio  name=level  value- ’  100  ”>100 

<!--■  <h3>Statistics;</H3> 
bias:  <input  type=checkbox  name="bias"> 

stdev:  <input  type=checkbox  name=”stdev”> 

rms:  <input  type=checkbox  name="rms”> 

— : > 


<h3>0bs  types:</h3> 

<input  type=radio  name=obstype  value- ’raob^qc"  checked>raob_qc 

<input  type=radio  name=obstype  value="sfc_lnd">sfc_lnd 

<input  type=radio  name=obstype  value=”sfc_ship_met_qc">sfc_ship_met_qc 

<h3>Graph  Type:</h3> 

<!~<input  type=radio  name=graph  value="scatter  plot”>scatter_plot~> 

<input  type=radio  name-graph  value="time  series”  checked>time_series 

<h3>Period:  Enter  the  beginning  andendingDTG:  e.g.,  1998031 81 2</h3> 

<input  type=text  name=beginning  maxlength=l  0  value-”  1 9980325 1 2"> 

<input  type=text  name=ending  maxlength=  1 0  value- ’  1 998040500 ”> 

<input  type=submit> 

<input  type=reset  value-' Cancel"> 

</form> 

</body> 

<flitml> 

3.  Noraps_asia.html 

<html> 

<!— 

Author:  Susie  Pace 
Date:  07  November,  1997 

File  URL:  model j-eports/mvenf/norap s_asi  a . html 
— > 

<head><title>NORAPS_ASIA  Verification  Display  </title></head> 

<body  bgcolor="#l 9 1970”  TEXT="#00FF7F"  LINK="#00FF7F"  VLINK="#CCCC66” 
ALINK="#FF 0 000 "> 

<form  method=GET  action="http://devul/cgi-bin/space3.pr> 

<hlxcenter>Make  your  selections  to  see  the  statistics.</center></hl> 
<h3>Model:</h3> 

<input  type=radio  name=model  value="noraps_asia”  checked>noraps_asia 
<h3>Geometiy:</h3> 

<input  type=radio  name=geometry  value=”asia_nestl_appl”  checked>  asia__nestl_appl 
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<h3>Parameters:</h3> 

<input  type=radio  name=parameter  value- '  air_temp  ">  air_temp 
<input  type=radio  name=parameter  value- ’geop  Jit"  checked>  geop_ht 
<input  type=radio  name=parameter  value="pres">  pres 
<input  type=radio  name=parameter  value=n\vnd_spd">  wnd_spd 

<h3>Taus:</h3> 

<input  type=radio  name=tau  value- '0">  0 
<input  type=radio  name=tau  valuer"  1 2">  1 2 
<input  type=radio  name=tau  value="24"  checked>  24 
<input  type=radio  name=tau  value- '36">  36 
<input  type=radio  name=tau  value- '48">  48 

<h3>Levels:  </h3> 

<input  type=radio  name=level  value="0">0 
<input  type=radio  name=level  value-’2">2 
<input  type=radio  name=level  value="19.5">19.5 
<input  type=radio  name=level  value-'  1000">  1000 
<input  type=radio  name=level  value="925">925 
<input  type=radio  name-level  value-' 850">850 
<input  type=radio  name=level  value="700">700 
<input  type=radio  name=level  value="500"  checked>500 
<input  type=radio  name=level  value-'400">400 
<input  type==radio  name=level  value="300">300 
<input  type=radio  name=level  value="250">250 
<input  type=radio  name=level  value="200">200 
<input  type=radio  name=level  value- '150”>  150 
<input  type=radio  name=level  value-' 100">  100 


<! — <h3>Statistics :  </H3> 
bias:  <input  type=checkbox  name- 'bias"> 

stdev:  <input  type=checkbox  name- 'stdev"> 

rms:  <input  type=checkbox  name-'rms"> 


<h3>Obs  types:</h3> 

<input  type=radio  name=obstype  value="raob_qc"  checked>raob_qc 

<inputtype=radio  name=obstype  value- ’sfcjnd">sfcjnd 

<input  type=radio  name=obstype  value=nsfc__ship_met_qc">sfc_ship_met_qc 

<h3>Graph  Type:</h3> 

<!~<input  type=radio  name=graph  value-' scatter  plot">scatter_plot— > 
<input  type=radio  name=graph  value="time  series"  checked>time_series 

<h3>Period:  Enter  the  beginning  and  ending  DTG:  e.g.,  1 99803 181 2</h3> 
<input  type=text  name=beginning  maxlength=10  value-’ 1998031 81 2"> 
<input  type=text  name=ending  maxlength=10  value-'  199803  30 12"> 

<input  type=submit> 

<input  type=reset  value="Cancel"> 

</form> 
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</body> 

</html> 


4.  Noraps_conus.html 


<html> 

<!— 

Author:  Susie  Pace 
Date:  25  March  1 998 

File  URL:  model_reports/mverif/noraps_conus.html 
— > 

<head><title>NORAPS_CONUS  Verification  Display  </title></head> 

<body  bgcolor=M#l 9 1 970"  TEXT="#00FF7Fn  LINK="#00FF7Fn  VLINK="#CCCC66M 
ALINK=H#FF0000,,> 

<form  method=GET  action=,'http://devul/cgi-bin/space3.plM> 

<h  1  xcenter>Make  your  selections  to  see  the  statistics.</center></hl> 

<h3>Model:  </h3> 

<input  type=radio  name=model  value- ’noraps_conus"  checked>  noraps_conus 
<h3>Geometry :  </h3  > 

<input  type=radio  name=geometry  value="conus_nestl_appr  checked>  conus__nestl_appl 
<h3>Parameters:</h3> 

<input  type=radio  name=parameter  value- 'air_temp">  air_temp 
<input  type=radio  name^arameter  value- 'geopjht"  checked>  geop_ht 
<input  type=Tadio  name=parameter  value="pres">  pres 
cinput  type=radio  name=parameter  value="wnd_spd">  wnd_spd 

<h3>Taus:</h3> 

<input  type=radio  name=tau  value- ’0">  0 
<input  type=radio  name=tau  value="  1 2">  12 
<input  type=radio  name=tau  value- ’24"  checked>  24 
<input  type=radio  name=tau  value="36”>  36 
<input  type=radio  name=tau  value- '48’'>  48 

<h3>Levels:  </h3> 

<input  type=radio  name=level  value- ’0">0 
cinput  type=radio  name=level  value- ’2  ">2 
cinput  type=radio  name=level  value=”  1 9.5">1 9.5 
cinput  type=radio  name=level  value- ’  1 000”>1 000 
cinput  type=radio  name=level  value="925">925 
cinput  type=radio  name=level  value="850">850 
cinput  type=radio  name=level  value- 700 ">700 
cinput  type=radio  name=level  value=,,500"  checked>500 
cinput  type=radio  name=level  value="400">400 
cinput  type=radio  name=level  value="300">300 
cinput  type=radio  name=level  value- ’250M>250 
cinput  type=radio  name=level  value="200">200 
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<input  type=radio  name=level  valuer"  1 50">1 50 
<input  type=radio  name=level  value-'  1 00  M>  1 00 

<! -<h3>Statistics :  </H3> 
bias:  <input  type=checkbox  name="bias"> 

stdev:  <input  type=checkbox  name- ’stdev"> 

rms:  <input  type=checkbox  name="rms"> 

— > 


<h3>Obs  types:</h3> 

<input  type=radio  name=obstype  value="raob_qc"  checked>raob_qc 

<input  type=radio  name=obstype  value- 'sfc_lnd">sfcjnd 

<input  type=radio  name=obstype  value="sfc_ship_met_qc">sfc_ship_met_qc 

<h3>Graph  Type:</h3> 

<!--<input  type=radio  name=graph  value-' scatter  plot">scatter_plot~> 
<input  type=radio  name=graph  value- 'time  series"  checked>time_series 

<h3>Period:  Enter  the  beginning  and  ending  DTG:  e.g.,  199803 1812</h3> 
<input  type=text  name==beginning  maxlength=  1 0  value- ’  1 99803 1 8 1 2"> 
<input  type^ext  name=ending  maxlength=10  value- '199803 301 2"> 

<input  type=submit> 

<input  type=reset  value="Cancel"> 

</form> 

</body> 

</html> 


5.  Noraps_europe.html 


<html> 

<!— 

Author:  Susie  Pace 
Date:  25  March  1998 

File  URL:  model__reports/mverif7noraps_europe.html 


<head><title>NORAP  S_EUROPE  Verification  Display  </title></head> 

<body  bgcolor="# 1 9 1 970"  TEXT="#00FF7F"  LINK="#00FF7F"  VLINK=n#CCCC66" 
ALINK-'#FF0000"> 

<fonn  method=GET  action- 'http  ://devu  1  /cgi-bin/space3  .pl"> 

<hlxcenter>Make  your  selections  to  see  the  statistics.</center></hl> 

<h3>Model:  </h3> 

<input  type=radio  name=model  value-"noraps_europe"  checked>  noraps_europe 
<h3>Geometry:</h3> 

<input  type=radio  name=geometry  value- ' europe_nest  1  _appl"  checked>europe_nestl_appl 
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<h3>Parameters:  </h3> 

<input  type=radio  name=parameter  value="air_temp">  air_temp 
<input  type=radio  name=parameter  value="geop_ht"  checked>  geop_ht 
<input  type=radio  name=parameter  value="pres">  pres 
<input  type=radio  name=parameter  value- ,wnd_spd">  wnd_spd 

<h3>Taus:</h3> 

<input  type=radio  name=tau  value- '0">  0 
<input  type=radio  name=tau  value- '  1 2">  1 2 
<input  type=radio  name=tau  value- ’24"  checked>  24 
<input  type=radio  name=tau  value- ’36">  36 
<input  type=radio  name=tau  value="48">  48 

<h3>Levels:  </h3> 

<input  type=radio  name-level  value="0">0 
<input  type=radio  name=level  value="2">2 
<input  type=radio  name=level  value-’  19.5">19.5 
<input  type=radio  name=level  value- '  1000 ">1000 
<input  type=radio  name=level  value="925">925 
<input  type=radio  name=level  value- ’850”>850 
<input  type=radio  name=level  value- '700">700 
<input  type^radio  name=level  value- ’500"  checked>500 
<input  type=radio  name=level  value="400">400 
<input  type=radio  name=level  value- ’300">3  00 
<input  type=radio  name=level  value="250">250 
<input  type=radio  name=level  value- ’200”>200 
<input  type=radio  name=level  value-"  1 50">  1 50 
<input  type=radio  name=level  value- ’  100' ’’>100 

<!-<h3>Statistics:</H3> 
bias:  <input  type=checkbox  name- 'bias"> 

stdev:  <input  type=checkbox  name- ’stdev"> 

rms:  <input  type=checkbox  name- 'rms"> 


<h3>Obs  types:</h3> 

<input  type=radio  name=obstype  value- ’raob_qc"  checked>raob_qc 

<input  type=Tadio  name=obstype  value="sfc_lnd">sfc_lnd 

<input  type=radio  name=obstype  value="sfc_ship_met_qc">sfc_ship_met_qc 

<h3>Graph  Type:</h3> 

<!— <input  type=radio  name=graph  value- 'scatter  plot">scatterjplot~> 
<input  type=radio  name=graph  value="time  series"  checked>time_series 

<h3>Period:  Enter  the  beginning  and  ending  DTG:  e.g.,  199803 181 2</h3> 
<input  type=text  name=beginning  maxlength=l  0  value="  1 99803 1 8 1 2"> 
<input  type=text  name-ending  maxlength=  1 0  value-'  1 99803  30 1 2"> 

<input  type=submit> 

<input  type=reset  value-"Cancer> 

</foim> 
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</body> 

</html> 


6.  Noraps_ind_ocn.html 


<html> 

<!-- 

Author:  Susie  Pace 
Date:  25  March  1998 

File  URL:  model_reports/mveril7noraps_md_ocn.htinl 


<head><title>NORAPS_IND_OCN  Verification  Display  </title></head> 

<body  bgcolor="#l  91 970"  TEXT="#00FF7F"  LINK="#00FF7F"  VLINK="#CCCC66" 
ALINK=M#FF0000H> 

<fonn  method=GET  action- 'http  ://devu  1  /cgi-bin/space3  .plM> 

<hl><center>Make  your  selections  to  see  the  statistics.</center></hl> 

<h3>Model:  </h3> 

<input  type=radio  name=model  value="noraps_md_ocn"  checked>nor ap s_ind__ocn 
<h3>Geometry:</h3> 

<inputtype=radio  name=geometry  value="ind_ocn_nest  1  _appl"  checked> 
ind_ocn__nest  1  _appl 

<h3>Parameters:</h3> 

<input  type=radio  name=parameter  value-" air_temp">  airjemp 
<input  type=radio  name=parameter  value-’geop_ht"  checked>  geop_ht 
<input  type=radio  name=parameter  value="pres">  pres 
<input  type=radio  name=parameter  value="wndjspd">  wnd_spd 

<h3>Taus:</h3> 

<input  type=radio  name=tau  value-' 0">  0 
<input  type=radio  naxne=tau  value- '  1 2">  1 2 
<input  type=radio  name=tau  value- '24"  checked>  24 
<input  type=radio  name=tau  value- '36">  36 
<input  type=radio  name=tau  value- '48">  48 

<h3>Levels:  </h3> 

<input  type=radio  name-level  value="0">0 
<input  type=radio  name=level  value="2">2 
<input  type=radio  name=level  value- '19.5">1 9.5 
<input  type=radio  name=level  value="1000">1000 
<input  type=radio  name=level  value- '925 ">925 
<input  type=radio  name=level  value- '850 ">850 
<input  type=radio  name-level  value- '700">700 
<input  type=radio  name=level  value- ’500"  checked>500 
<input  type=radio  name=level  value- '400">400 
<input  type=radio  name=level  value="300">300 
<input  type=radio  name=level  value=:"250">250 
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<input  type=radio  name=level  value="200">200 
<input  type=radio  name=level  value-’  1 50">  1 50 
<input  type=radio  name=level  value="100">100 

<! -<h3>Statistics:  </H3> 
bias:  <input  type^checkbox  name- 'bias"> 

stdev:  <input  type=checkbox  name- 'stdev"> 

rms:  <input  type=checkbox  name="rms"> 

— > 

<h3>Obs  types:</h3> 

<input  type=radio  name=obstype  value- ’raob_qc"  checked>raob_qc 

<input  type=radio  name=obstype  value- ’sfc_lnd">sfc_lnd 

<input  type=radio  name=obstype  value="sfc_ship_met_qc">sfc_ship_met_qc 

<h3>Graph  Type:</h3> 

<!~<input  type=radio  name=graph  value-'scatter  plof’>scatter_plot--> 
<input  type=radio  name=graph  value="time  series"  checked>time_series 

<h3>Period:  Enter  the  beginning  andendingDTG:  e.g.,  1998031 8 12</h3> 
<input  type=text  name=beginning  maxlength=  1 0  value- ’  1 99803 1 8 1 2M> 
<input  type=text  name=ending  maxlength-10  value-’ 199803301 2  "> 

<input  type=submit> 

<input  type=reset  value- 'Cancel"> 

</form> 

</body> 

<7html> 

7.  Coamps_europe.html 

<html> 

<!— 

Author:  Susie  Pace 
Date:  25  March  1998 

File  URL:  model  j-eports/mverif/coamps_europe.html 
— > 


<head><title>COAMPS_EUROPE  Verification  Display  </title></head> 

<body  bgcolor="#l  91 970"  TEXT="#00FF7F"  LINK="#00FF7F"  VLINK="#CCCC66" 
ALINK=M#FF0000"> 

<form  method=GET  action="http://devul/cgi-bin/space3.pr> 

<hl><center>Make  your  selections  to  see  the  statistics.</centei></hl> 

<h3>Model:  </h3> 

<input  type=radio  name=model  value-’ coamps__europe"  checked>  coamps_europe 
<h3>Geometiy :  <7h3> 

<input  type=radio  name=geometry  value- ’europe_nest2_appl2"  checked> 
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europe_nest2_appl2 

<input  type=Tadio  name=geometiy  value="europe_nest3_appl3">europe_nest3_appl3 
<h3>Parameters:</h3> 

<input  type=radio  name=parameter  value="air_tempn>  air_temp 
<input  type=radio  name=parameter  value-'geop_ht"  checked>  geop__ht 
<input  type=radio  name=parameter  value="pres">  pres 
<input  type=radio  name=parameter  value- 'wnd_spd">  wnd_spd 

<h3>Taus:<7h3> 

<input  type=radio  name=tau  value="0">  0 
<input  type=radio  name=tau  value="12M>  12 
<input  type=radio  name=tau  value="24"  checked>  24 
<input  type=radio  name=tau  value="36">  36 
<input  type=radio  name=tau  value="48">  48 

<h3>Levels:  </h3> 

<input  type=radio  name=level  value- '0">0 
<input  type=radio  name=level  value- '2">2 
<input  type=radio  name=level  value- '19. 5  ">19.5 
<input  type=radio  name=level  value- '  1 000">1 000 
<input  type=radio  name=level  value="925">925 
<input  type=radio  name=level  value="850">850 
<input  type=radio  name=level  value- '700">700 
<input  type=radio  name=level  value="500"  checked>500 
<input  type=radio  name=level  value="400">400 
<input  type=radio  name=level  value- '300">300 
<input  type=radio  name=level  value="250">250 
<input  type=radio  name=level  value- ’200n>200 
<input  type=radio  name=level  value- '  1 50">150 
<input  type=radio  name=level  value="  1 00">  1 00 

<!  — <h3>Statistics  :</H3> 
bias:  <input  type=checkbox  name=,'bias"> 

stdev:  <input  type=checkbox  name- 'stdev"> 

rms:  <input  type=checkbox  name="rms"> 


<h3>Obs  types:</h3> 

<input  type=radio  name=obstype  value-'raobjqc"  checked>raob_qc 

<input  type=radio  name=obstype  value- 'sfc_lnd">sfc_lnd 

<input  type=radio  name=obstype  value="sfc_ship_met_qc,’>sfc_ship_met__qc 

<h3>Graph  Type:<7h3> 

<!— <input  type=radio  name=graph  value-’scatter  plot">scatterjplot~> 
<input  type=radio  name=graph  value- 'time  series"  checked>time_series 

<h3>Period:  Enter  the  beginning  and  ending  DTG:  e.g.,  199803 18 12</h3> 
<input  type=text  name=beginning  maxlength=l  0  value-'  1 99803 1 8 1 2"> 
<input  type=text  name=ending  maxlength=  1 0  value-’  1 99803301 2"> 

<input  type=submit> 
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<input  type=reset  value- ’Cancel'^ 


</form> 

</body> 

</html> 


8.  Coamps_southwest_asia.html 


<html> 

<!-- 

Author:  Susie  Pace 
Date:  25  March  1998 

File  URL:  model_reports/mverif/coamps_swasia.html 
— > 


<head><title>COAMPS_SOUTHWEST_ASIA  Verification  Display  </title></head> 
<body  bgcolor="#l  91 970"  TEXT="#00FF7F”  LINK="#00FF7F"  VLINK="#CCCC66'' 
ALINK=,,#FF0000"> 

<form  method=GET  action- Mp://devul/cgi-bin/space3.pr> 

<hlxcenter>Make  your  selections  to  see  the  statistics. </center></hl> 

<h3>Model:  </h3> 

<input  type=radio  name=model  value="coamps_sw_asia"  checked> 
coamps_southwest_asia 

<h3>Geometry:</h3> 

<input  type=radio  name=geometiy  value=,,southwest_asia_nest2_appr  checked> 
southwest_asia_nest2_appl 

<input  type=radio  name=geometry  value- ’southwest_asia_nest3_appr> 
southwest_asia_nest3_appl 

<h3>Parameters:</h3> 

<input  type=radio  name=parameter  value-’ air_temp">  air_temp 
<input  type=radio  name=parameter  value- ’geopjit"  checked>  geop_ht 
<input  type=radio  name=parameter  value- 'pres">  pres 
<input  type=radio  name=parameter  value="wnd_spd">  wnd_spd 

<h3>Taus:</h3> 

<input  type=radio  name^tau  value="0">  0 
<input  type=radio  name=tau  value- ’  1 2">  1 2 
<input  type=radio  name=tau  value=”24”  checked>  24 
<input  type==radio  name=tau  value="36">  36 
<input  type=radio  name=tau  value- ’48">  48 

<h3>Levels:  </h3> 

<input  type=radio  name=level  value-'0">0 
<input  type=radio  name=level  value="2">2 
<input  type=radio  name-level  value="  1 9.5">  1 9.5 
<input  type=radio  name=level  value=M  1000">1000 
<input  type=radio  name=level  value- ,925">925 
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<input  type=radio  name=level  value- '850">850 
<input  type=radio  name==level  value="700,'>700 
<input  type=radio  name-level  value- ’500"  checked>500 
<input  type=radio  name=level  value="400">400 
<input  type=radio  name=level  value- '300">300 
<input  type=radio  name=level  value- '250">250 
<input  type=radio  name=level  value- ’200">200 
<input  type=radio  name=level  value-'  1 50">  1 50 
<input  type=radio  name=level  value- '100  ">100 

<!~<h3>Statistics:</H3> 
bias:  <input  type=checkbox  name="bias"> 

stdev:  <input  type=checkbox  name="stdev’’> 

rms:  <input  type=checkbox  name- 'rms"> 

-> 


<h3>Obs  types:</h3> 

<input  type=radio  name=obstype  value="raob_qc"  checked>raob__qc 

<input  type=radio  name=obstype  value="sfc_lnd">sfc_lnd 

<input  type=radio  name=obstype  value= "  sfc_ship_met_qc">sfc_ship_met_qc 

<h3>Graph  Type:</h3> 

<!— ■ <input  type=radio  name=graph  value- 'scatter  plot">scatter_plot— > 
<input  type=radio  name=graph  value— 'time  series"  checked>time_series 

<h3>Period:  Enter  the  beginning  and  ending  DTG:  e.g.,  199803 18 12</h3> 
<input  type=text  name=beginning  maxlength—  1 0  value- '  1 99803 181 2"> 
<input  type=text  name=ending  maxlength=  1 0  value- '  1 99803301 2"> 

<input  type=submit> 

<input  type^eset  value- ’Cancel'^ 

</form> 

</body> 

</html> 


9.  W  amGlobal.  html 


<html> 

<!— 

Author:  Susie  Pace 

Date:  25  March  1998 

File  URL:  model_reports/mveriL'wam.html 


<head><title>WAM_GLOBAL  Verification  Display  </title></head> 

<body  bgcolor="#  191970"  TEXT="#00FF7F"  LINK="#00FF7F”  VLINK="#CCCC66" 
ALINK="#FFOOOO"> 

<form  method=GET  action="http.7/devul  /cgi-bin/space3  .pl"> 

<hlxcenter>Make  your  selections  to  see  the  statistics.</center></hl> 
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<h3>Model:  </h3> 

<input  type=radio  name^model  value="wam_globar  checked>  wam_globaI 
<h3>Geometry:</h3> 

<input  type=radio  name=geometry  value="global_360xl  81"  checked> 
global_360xl81 

<h3>Parameters :  </h3> 

<input  type=radio  name=parameter  value- 'sig_wav_htM  checked>  sig_wav_ht 
<input  type=radio  name=parameter  value="peak_wavj)er">  peak_wav_per 

<h3>Taus:</h3> 

<input  type=radio  name=tau  value- '0">  0 
<input  type=radio  name=tau  value="  12">  1 2 
<input  type=radio  name=tau  value="24"  checked>  24 
<input  type=radio  name=tau  value- '36">  36 
<input  type=radio  name=tau  value- ’48">  48 
<input  type=radio  name=tau  value="60">  60 
<input  type=radio  name=tau  value- ’72">  72 
<input  type=radio  name=tau  value- ’84">  84 
<input  type=radio  name=tau  value- '96">  96 
<input  type=radio  name=tau  value="108">  108 
<input  type=radio  name=tau  value="  1 20">  1 20 

<h3>Levels:  </h3> 

<input  type=radio  name=level  value="0"  checked>0 

<!-<h3>Statistics:</H3> 
bias:  <input  type=checkbox  name="bias"> 

stdev:  <input  type=checkbox  name- ’stdev"> 

rms:  <input  type=checkbox  name- 'rms"> 


<h3>Obs  types:</h3> 

<input  type=radio  name=obstype  value="sfc_shipM  checked>sfc_ship 
<!-<input  type=radio  name=obstype  value- 'alty">alty--> 

<h3>Graph  Type:</h3> 

<!— <input  type=radio  name=graph  value="  scatter  plot”>scatter_plot— > 
<input  type=radio  name=graph  value="time  series"  checked>time_series 

<h3>Period:  Enter  the  beginning  and  ending  DTG:  e.g.,  1 99803 1 8 1 2</h3> 
<input  type=text  name=beginning  maxlength=  1 0  value="  1 99803 1 8 1 2"> 
<input  type=text  name=ending  maxlength=10  value="l  99803  301 2"> 

<input  type=submit> 

<input  type=reset  value="Cancel"> 

</form> 

</body> 

</html> 
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10.  Procform.pl 


# !  Aisr/local/bin/perl 

#  space3.pl  -  Try  to  batch  in  runjob  to  retreive  the  data 

#  and  run  the  IDL  programs  to  create  the  graphs 


#Use  the  form  library 
require  "space2.pl"; 


MUttUUmm  STEP  1 :  Get  and  decode  the 


#get  the  data  from  the  form 
&ReadParse(*input); 


!  STEP  2:  Process  the  i 


Sprocid  =  $$; 

'  export  procid'; 

#split  Squeryjstring  into  name=value  pairs 
local(*FormData)  =  @_  if  #make  an  alias  for  the  arg 
$query_string=$ENV  { ’QUERY JSTRING’ } ; 

foreach  $name_value  (split('&’,  $queiy_string))  { 

#translate  any  plus  signs  in  the  pair  string  into  spaces: 
Sname jvalue  =~  tr/+/  /; 

#split  the  name=value  pair  into  a  separate  name  and  value: 
(Sname,  Svalue)  =  split  $name_value); 

#translate  escaped  hex  numbers  back  to  8-bit  char: 

Sname  =~  s/%(..)/pack("C",  hex($l))/eg; 

Svalue  —  s/%(..)/pack("C",  hex($l))/eg; 

#convert  the  names  and  values  into  named,  assigned  var; 
if  (defined($FormData{ Sname}))  { 

$FormData{$name}  =  "\0$value'’; 

}  else  { 

$FormData{$name}  =  Svalue; 

> 

if  (Sname  eq  ’model’)  { 

Smodel  =  Svalue; 

'export  model'; 

#exit  0  if  (Smodel  eq ") 

}  elsif  (Sname  eq  'geometry')  { 

Sgeometry  =  Svalue; 

'export  geometry'; 

#exit  0  if  (Sgeometry  eq ") 


}  elsif  (Sname  eq  'parameter')  { 
Sparameter  =  Svalue; 

'export  parameter; 

#exit  0  if  (Sparameter  eq ") 

}  elsif  (Sname  eq  W)  { 

Stau  -  Svalue; 

'  export  tau; 

#exit  0  if  (Stau  eq ") 

}  elsif  (Sname  eq  ’level’)  ( 
Slevel  =  Svalue; 

'export  level'; 

#exit  0  if  (Slevel  eq  ”) 

}  elsif  (Sname  eq  ’stats’)  { 
Sstats  =  Svalue; 

#' export  stats' ; 

}  elsif  (Sname  eq  ’obstype’)  { 
Sobstype  =  Svalue; 

'export  obstype'; 

#exit  0  if  (Sobstype  eq  ") 

}  elsif  (Sname  eq  ’graph')  { 
Sgraph  =  Svalue; 

'export  graph'; 

#exit  0  if  (Sgraph  eq  ”) 

}  elsif  (Sname  eq  ’beginning')  { 
Sbeginning  =  Svalue; 

'export  beginning'; 

#exit  0  if  (Sbeginning  eq  ") 

}  elsif  (Sname  eq  ’ending’)  { 
Sending  =  Svalue; 

'export  ending'; 

#exit  0  if  (Sending  eq ") 

}  else  { 

print  "no  matching  env  var"; 

} 


} 

#process  the  request  by  runjob 

7a/ops/bin/runjob  -h  div60-3  -u  pacek  -t  sun  -d  /home/pubs43/tmp  -j  get_data.ksh  -e  "pid=$procid 
MODEL=$model  BDTG=$beginning  EDTG=$endmg  PARM_NAME=$parameter  LVL_1 -Slevel 
FCSTPER=$tau  OBSTYPE-Sobstype  GEOM_NAME=$geometry"  >  Sprocid.out  2>&1'; 


STEP  3:  Reply  by  outputting  a  new  document  ########## 


180 


#$Image  =  "http  ://l  52. 80. 1 3 .20 1 /-pacek^gif/Sprocid.  gif’; 
SImage  =  M/home/pubs43/tmp/$procid.gif'; 


#!!!!!  This  portion  worked  for  WAM  !!!!!# 

# 

#  Output  the  MIME-type  header,  followed  by  two  newlines: 
print  "Content-type:  image/gif\n\n"; 

# 

#  loop  until  the  gif  file  is  transferred  to  the  web  server 

#  when  the  gif  file  arrives,  display  on  the  web  browser 

# 

while  (!  (-e  SImage))  { 
sleep  5; 

} 

open  (IMAGE,  SImage); 
print  <IMAGE>; 
close  (IMAGE); 

'nn  SImage' ; 

#print  "<HTML><HEAD><TITLE>  Model  Verification  Reply  </TITLE></HEAD>\n"; 

#print  "</BODY></HTML>\n"; 

# 

#!!!!!  Down  to  here  !!!!!# 

#Trying  to  handle  the  timed  out  error 
#if  (-e  SImage)  { 

#  print  "Content-type:  image/gif\n\n"; 

#  open  (IMAGE,  SImage); 

#  print  <IMAGE>; 

#  close  (IMAGE); 

#this  causes  the  runjob  to  be  batched  in  multiple  time  and  PID  change, 

#end  up  in  an  infinite  loop 
#}  else  { 

#  print  "refresh:  10;  \n"; 

#  print  "Content-type:  text/html\n\n"; 

#  print  "<HTML><HEAD><TITLE>Model  Statistics  Display</TITLEx/HEAD>\n"; 

#  print  "<BODY  B GC OLOR=NA VY  TEXT=WHITE>"; 

#  print  "<Hl><CENTER>Please  be  patient,  the  image  is  being  created</CENTER></H  1  >\n" ; 

#  print  "Processing  is  done  when  a  graph  is  displayed\n"; 

#> 

mmmmm  end  of  space3.pi  ########## 

11.  Getdata.ksh 


#!/bin/sh 
/bin/ksh  «'EOT' 

.  /a/ops/isis/db_init/isis_init_ofs.ksh 
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#set  -x 
cd/d/tmp 

export  DB_D  ER=/d/model  -  stats/ 
cd  $DB_DIR 

export  FILENAME=$pid 
export  TMPFN=$pid"tmp" 

SLASH=_ 

if  [[  SMODEL  =  nogaps  ]] 
then 

MODEL="$MODEL$SLASH$GEOM__NAME" 

fi 

print  SMODEL  $GEOM_NAME  SFCSTPER  $PARM_NAME  SOBSTYPE  $LVL_1  SBDTG  SEDTG 

empcmd  $DB_DIR/stat_db  'select  bypassjock  verif_date5sample_size,parm__name, 

unit_name,geom_nameJvl_type5level_l  convert  to  decimal(8,2), 

tau,stat__type,stat_value  convert  to  decimal(8,2),verif_source, 

obs_type  from  SMODEL  where  verif_date  range  SBDTG  to  SEDTG  and 

pann_name- '$PARM_NAME"  and  geomjname- '$GEOM_NAME"  and  tau="$FCSTPER" 

and  obs_type="$OBSTYPE"  and  level  J="$LVLJ "  into  "STMPFN";' 

awk  '/A[0-9]/  \ 

{printf  ("%~12s%-5d%-20s%-15s%-30s%-15s%-8.2f%-5d%-15s%-8.2f%-10s%-25s\n",  \ 

$  1  ,$2,$3,$4,$5,$6,$7,$8,$9,$  1 0,$  1 1  ,$  1 2) } '  STMPFN  >  SFILENAME 

#print  "sourcing  the  EDL  setup  script" 

.  /h/idl/idl_5/bin/idl_setup.ksh 

#print  $PARM__NAME  $LVL_1  SFCSTPER  SOBSTYPE  $GEOM_NAME 
idl  -rt=plot_data 

if  [[  -fSFILENAME.gif]] 
then 

ftpbatch  -h  devul  -s  "cd  /home/pubs43/tmp/;  put  SFDLENAME.gif' 
fi 

rm  Spid* 

exit  0 
EOT 
exit  0 
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APPENDIX  C 


A.  STATTEST.F90 

program  stattest 
C 

C . START  PROLOGUE . 

C 

C  sees  IDENTIFICATION:  @(#)stattest.f90  1.1  04/24/98 
C 

C  CONFIGURATION  IDENTIFICATION:  NONE 
C 

C  MODULE  NAME:  stattest 
C 

C  DESCRIPTION:  Program  to  test  the  stat  lib 
C 

C  COPYRIGHT:  (c)  1 998  FLENUMMETOCCEN  . 

C  •  U.S.  GOVERNMENT  DOMAIN 

C  ALL  RIGHTS  RESERVED 

C 

C  CONTRACT  NUMBER  AND  TITLE:  N/A 
C 

C  REFERENCES:  NONE 
C 

C  CLASSIFICATION:  Unclassified 
C 

C  RESTRICTIONS:  NONE 
C 

C  COMPUTER/OPERATING  SYSTEM 
C  DEPENDENCIES:  CrayUNICOS 

C 

C  LIBRARIES  OF  RESIDENCE:  /a/ops/bin 
C 

C  USAGE: 

C  stattest 
C 

C  PARAMETERS: 

C  Name  Type  Usage  Description 

C  . 

c 

C  PARAMETERS: 

C  Name  Type  Usage  Description 

C  . 

c 

C  COMMON  BLOCKS:  N/A 
C 

C  FILES:  N/A 
C 

C  DATABASES:  N/A 
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c 

C  COMPILER  DEPENDENCIES:  f90 
C 

C  COMPILE  OPTIONS:  -f  fixed  -c 
C 

C  MAKEFILE:  Located  at  /a/ops/app/mverif/test/maketest 
C  UNICOSmake 
C 

C  RECORD  OF  CHANGES: 

C 

C  «CHANGE  NOTICE»  Version  1.1  (29  Apr  1 998)  —  Kyongsuk  Pace 
C  Initial  submission 
C 

C . END  PROLOGUE . 

C 

implicit  none 

integer ::  size 
parameter(size=  1 0) 

real  ::  stat 
real  ::  arrl(size) 
real  ::  arr2(size) 

character(4) ::  geom 

geom(l  :4)  =  'NONE' 

arr2  =  (/288.6, 304.8,  301.4,  293.2,  293.2, 

2  297.6, 295.8,  291 .0, 285.2, 287.8/) 

arrl  =  (/289.29,  302.26,  302.14, 294.92,  294.92, 

2  296.25, 295.37, 292.32, 285. 1 5, 288.69/) 

CALL  COMPUTE_BIAS(arr  1  ,arr2,size,geom,stat) 
write  (0,  '("bias  = ",  f8.2)')  stat 

CALL  COMPUTE_STD(arrl  ,arr2,size,geom,stat) 
write  (0,  '(''std  =  ",  18.2)')  stat 

CALL  COMPUTE_RMS(arrl  ,arr2, size, geom, stat) 
write  (0,  '("rms  = ",  f8.2)')  stat 

stop  'Normal  End’ 

end 


B.  STATISTICS  BY  STATISTICS  LIBRARY  SUBROUTINES 


Script  started  on  Wed  Feb  1 1  17:21:26  1 998 
[/dev/ttyp017] 

s{j91 }  /home/p  acek/m  verif7test>tstattest 
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bias  =  0.27 

std=  1.31 
rms  =  1.34 

STOP  Normal  End 

STOP  executed  at  line  28  in  Fortran  routine  'STATTEST' 

CPU:  0.010s,  Wallclock:  0.011s,  10.6%  of  8-CPU  Machine 

Memory  HWM:  1595052,  Stack  HWM:  803866,  Stack  segment  expansions:  0 

{j91  }/home/pacek/mverif/test 

Script  finished  on  Wed  Feb  11  17:21:34  1998 


C.  STATISTICS  BY  MICROSOFT  EXCEL 


array  1  array  2  diff 

288.6  289.29 

304.8  302.26 
301.4  302.14 

293.2  294.92 

293.2  294.92 

297.6  296.25 

295.8  295.37 

291  292.32 

285.2  285.15 

287.8  288.69 

sum  -2.71 

bias  -0.271 


diff  sqr 
-0.69 

0.4761 

2.54 

6.4516 

-0.74 

0.5476 

-1.72 

2.9584 

-1.72 

2.9584 

1.35 

1.8225 

0.43 

0.1849 

-1.32 

1.7424 

0.05 

0.0025 

-0.89 

0.7921 

17.9365 

sum/count 

count 

stdev 

rms 


1.3115  sqrt(sum  of  diff  sqr/count  -  bias*bias) 

1 .3392  sqrt(sum  of  diff  sqr/count) 
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